Решение задачи по поиску двух различных max в массиве

program massiv5;
const N=25;
type x=array [1..N] of integer;
var a:x;
i:integer;
max1,max2:integer;
imax1, imax2:integer;
begin
randomize;
for i:=1 to N do
begin
a[i]:= -50+random(101);
write (A[i]:4)
end;
writeln;
imax1:=1;
max1:=A[1];
for i:=2 to N do
if max1<a[i] then
begin
max1:=a[i];
imax1:=i
end;
writeln ('1-й Максимальный элемент в массиве=',max1);
writeln ('Его индекс=',imax1);
 
imax2:=2;
max2:=A[2];
for i:=3 to N do
if (max2<a[i]) and (max2<>max1)then
begin
max2:=a[i];
imax2:=i
end;
writeln ('2-й Максимальный элемент в массиве=',max2);
writeln ('Его индекс=',imax2);
end.

if (max2<a[i]) and (max2<>max1)then

program massiv5;
 
const
  N = 10;
 
type
  x = array [1..N] of integer;
 
var
  a: x;
  i: integer;
  //max1, max2: integer;
  imax1, imax2: integer; //Вот Вам совет на будущее - храните только индексы максимумов. Зачем сами значения-то хранить?
 
begin
  randomize;
  for i := 1 to N do
  begin
    a[i] := -50 + random(101);
    write(A[i]:4)
  end;
  writeln;
  imax1 := 1;
  //max1 := A[1];
  for i := 2 to N do
    if a[imax1] < a[i] then
    //begin
    //  max1 := a[i];
      imax1 := i;
    //end;
  writeln('1-й Максимальный элемент в массиве=', a[imax1]);
  writeln('Его индекс=', imax1);
  
  imax2 := 1{2}; //Почему со второго-то? Чем первый элемент не угодил?
  //max2 := A[2];
  for i := 2{3} to N do
    if (a[i{imax2}] <> a[imax1]) and (a[imax2] < a[i]) then //ОПАНЬКИ! А вот и ошибочка
    //begin
    //  max2 := a[i];
      imax2 := i;
    //end;
  writeln('2-й Максимальный элемент в массиве=', a[imax2]);
  writeln('Его индекс=', imax2);
end.