Информатика Практика / 2

Program praktika2;
Uses CRT;
Const n=7;
Var v: Array [1..n] Of Integer;
i, k, max, min, max2, min2: Integer;
Begin
For i:= 1 to n Do
Begin
Write('Введите число: ');
ReadLn(k);
v[i]:=k;
End;
WriteLn;
WriteLn('Исходный массив:');
WriteLn;
For i:= 1 to n Do
Begin
Write(v[i]:5);
End;
WriteLn;
max:=v[1];
min:=v[1];
max2:=v[2];
min2:=v[2];
For i:= 1 to n Do
Begin
If (v[i]>max)
Then max:=v[i];
If (v[i]<min)
Then min:=v[i];
End;
For i:= 1 to n Do
Begin
If ((v[i]>max2) and (v[i]<max))
Then max2:=v[i];
If ((v[i]<min2) and (v[i]>min))
Then min2:=v[i];
End;
WriteLn;
WriteLn('второй максимум = ', max2);
WriteLn;
WriteLn('второй минимум = ', min2);
ReadLn;
End.