В ЭВМ вводятся результаты соревнований по прыжкам в высоту. Число участников произвольно. Напечатать сообщение о победителе. (Оператор цикла FOR,paskal)

program raf105;

var  

 i,n,maxn: integer;

 a,max: real;

begin

max:= -10000;

n:= random(3,10);

writeln('Введите результаты ',n,' участников по очереди');

for i:=1 to n do

begin

 write(i,'. ');

 readln(a);

 if a > max

   then begin

     max:= a;

     maxn:= i;

   end;

end;

writeln('Победил участник №',maxn,' с результатом ',max);

end.