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

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.