Дан массив, состоящий из различных целых чисел. Определите второй по величине элемент этого массива - Pascal - Ответ 3138555

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
{функция по условию}
function SecondMax(a:mas;n:integer):integer;
var mx1,mx2,i:integer;
begin
if a[1]>a[2] then
 begin
  mx1:=a[1];
  mx2:=a[2];
 end
else
 begin
  mx1:=a[2];
  mx2:=a[1];
 end;
for i:=1 to n do
if a[i]>mx1 then
  begin
   mx2:=mx1;
   mx1:=a[i];
  end
else if a[i]>mx2 then mx2:=a[i];
SecondMax:=mx2;
end;
var a:mas;
    n,i,j,x:integer;
    f:boolean;
begin
clrscr;
{ввод массива из разных чисел}
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' разных целых чисел:');
write('a[1]=');
readln(a[1]);
for i:=2 to n do
 repeat
  write('a[',i,']=');
  readln(x);
  j:=1;
  f:=true;
  while (j<=i-1)and f do
  if a[j]=x then f:=false
  else j:=j+1;
  if f then a[i]:=x;
 until f;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Второй максимальный=',secondMax(a,n));
readln
end.