ребят,помоги пожалуйста,написать программу!) в эвм по очереди ...

Нюра

var n,i: integer;

      result,thebest: real;

begin

  thebest:=1;

  writeln('Введите количество спортсменов');

  readln(n);

  for i:=1 to n do begin

    writeln('Введите результат ',i,' спортсмена');

    readln(result);

    if result>thebest then thebest:=result;

    writeln('Лучший результат: ',thebest);

                         end;

end.