Определить победителя олимпиады по информатике,вводя по очереди с клавиатуры очки,набранные 10 участниками олимпиады

Среда PascalABC
var n,i,k,max:integer; 
begin readln(max);
n:=1;
for i:=2 to 10 do begin
readln(k);
if k>max then begin max:=k; n:=i; end; end; //СТРОЧКА С ИСПРАВЛЕННОЙ ОШИБКОЙ
writeln(max); //макс
writeln(n); //номер участника
end.

теперь синтаксис правильный! еще я нашел ошибку у себя из-за которой программа выдавала минимальный и номер