Как исправить недочет в программе Pascal?

Мне нужно сделать программу в паскале, которая ищет два максимальных элемента. Программу я сделал.
Program B_42;
Var A:array [1..5] of integer;
Var i,max,Nmax,max2,Nmax2:integer;
Begin
write('Массив:',' ' );
For i:=1 to 5 do begin
A[i]:= random(20)+1;
Write(A[i],' ');
end;
Writeln;
max:=A[1];
Nmax:=1;
max2:=A[1];
Nmax2:=1;
for i:=2 to 5 do begin
if A[i]> max then begin
max:=A[i];
Nmax:=i;
end;
end;
for i:=2 to 5 do begin
if (a[i]>max2) and (i<>Nmax) then begin
max2:=A[i];
Nmax2:=i
end;
end;
Writeln('Максимальный элемент: A[',Nmax,']=',max);
Writeln('Второй максимум: A[',Nmax2,']=',max2);

End.

Но вот проблема, когда у меня попадается два одинаковых числа, программа берет только одно из них Например, A1=19 A2=19, но программа рассматривает только А1 и выведет его в ответ или же вообще не рассматривает другие объекты. Ошибка где то в условии. В целом как то так:
Массив: 18 17 2 2 4
Максимальный элемент: A[1]=18
Второй максимум: A[1]=18

Надеюсь на помощь, но учтите, что добавление новых операторов мне не поможет, т. к меня ограничивает школьная программа и на вопрос учитель хлопец почему ты вместо моих любимых массивов и if используешь что-то другое я хз как ответить.