Среди результатов соревнований по лыжным гонкам, вводимых пользователем, вычислить три лучших результата

uses crt;
const nmax=50;
var a:array[1..nmax] of real;
    n,i,i1,i2,i3:integer;
    m1,m2,m3:real;
begin
clrscr;
randomize;
repeat
write('Количество лыников от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
writeln('Общие результаты:');
for i:=1 to n do
 begin
  a[i]:=30+6*random;
  write(a[i]:8:2);
 end;
writeln;
m1:=a[1];
m2:=a[1];
m3:=a[1];
i1:=1;
i2:=1;
i3:=1;
for i:=1 to n do
 begin
  if a[i]<m1 then
   begin
    m3:=m2;
    m2:=m1;
    m1:=a[i];
    i3:=i2;
    i2:=i1;
    i1:=i;
   end
  else if a[i]<m2 then
   begin
    m3:=m2;
    m2:=a[i];
    i3:=i2;
    i2:=i;
   end
  else if a[i]<m3 then
   begin
    m3:=a[i];
    i3:=i;
   end;
 end;
writeln;
writeln('Лучшие результаты:');
writeln(i1:2,m1:6:2);
writeln(i2:2,m2:6:2);
writeln(i3:2,m3:6:2);
readln
end.