Определить второй по величине максимальный элемент этого массива, не равный первому

Program max;
Uses crt:
Var a:array of integer;
max,N,max2,i:integer;
begin
clrscr;
writeln (‘введите размерность массива’);
read (N);
writeln (‘введите элементы массива через пробел’);
for i:=1 to N do
read a[i];
   max:=a[1];
   max2:=a[2];
   if  max < max2 then
   begin
    max:=a[2];
    max2:=a[1];
   end;
for i:=1 to n do 
   if a[i]>max  then 
   begin
    max2:=max;
    max:=a[i];
   end
   else
   if  a[i]>max2 then 
    max2:=a[i];
writeln (‘второй по величине максимальный элемент = ‘, max2);
readkey
end.

uses crt;
 
const
  nmax = 20;
 
var
  A : array [1..nmax] of integer;
  i, n, max, max2 : integer;
 
begin
repeat
Write('Размер массива (не более ', nmax, '): ');
Readln(n);
until n in [1..nmax];
for i := 1 to n do
  begin
  Write('Введите A[', i, '] = ');
  Readln(A[i]);
  end;
max := A[1]; 
for i := 2 to n do
  if A[i] > max then max := A[i];
if A[1] <> max then max2 := A[1] else max2 := A[2];
for i := 2 to n do
  if (A[i] > max2) and (A[i] < max) then max2 := A[i];  
Writeln('Второй максимальный элемент: ', max2);
Readln;  
end.