Первые два максимальных в массиве

{Определить два наибольших (хотя бы и равных) элемента массива А}
 
const n=5;
var a:array[1..n] of integer;
      i,max1,max2:integer;
 begin
   Writeln('Введите элементы массива');
   for i:=1 to n do
    begin
     Write('a[',i,']');
     Readln(a[i]);
    end;
   max1:=a[1];
    for i:=2 to n do
     if a[i]>max1 then
      max1:=a[i];
   
    max2:=a[1];
    for i:=2 to n do
     if a[i]>max1 then
      if a[i]<=max1 then
       max2:=a[i];
   
    Writeln('Максимальные ',max1,' и ',max2);
   Readln;
 end.

{Определить два наибольших (хотя бы и равных) элемента массива А}
uses crt;
const n=5;
var a:array[1..n] of integer;
    i,max1,max2:integer;
begin
writeln('Введите элементы массива');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив');
for i:=1 to n do
write(a[i],' ');
writeln;
if a[1]>a[2] then
 begin
  max1:=a[1];
  max2:=a[2];
 end
else
 begin
  max1:=a[2];
  max2:=a[1];
 end;
for i:=3 to n do
if a[i]>max1 then
 begin
  max2:=max1;
  max1:=a[i];
 end
else if a[i]>max2 then max2:=a[i];
writeln('Максимальные ',max1,' и ',max2);
end.