В массиве хранится информация о результатах 22 спортсменов,участвовавших в соревнованиях по бегу на 100 метров.Определить результаты спортсменов,занявших первое и второе места.- Pascal(Паскаль)

program try;
const 
n=5;
var
a :array[1..n] of real;
i :integer;
m1,m2 :real;
begin
m1:=0; m2:=0;
writeln('Задайте результаты спортсменов');
 
for i:=1 to n do
begin
readln(a[i]);
if a[i] > m1 then
m1:=a[i];
if (a[i] > m2) and (m1 > a[i]) then
m2:=a[i];
end;
writeln('Первое место ',m1:3:1);
writeln('Второе место ',m2:3:1);
end.