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

Когда Вы приводите текст программы, он должен без каких-либо правок выполняться в соответствующей среде. Ваша программа действительно синтаксически неверно. Исправляйте, или ответ будет удалён.

исправил

среда PascalABCvar n,i,k,max:integer; begin readln(max);n:=1;for i:=2 to 10 do beginreadln(k);if k>max then begin max:=k; n:=i; end; end; //СТРОЧКА С ИСПРАВЛЕННОЙ ОШИБКОЙwriteln(max); //макс баллwriteln(n); //номер участникаend.теперь синтаксис правильный! еще я нашел ошибку у себя из-за которой программа выдавала минимальный балл и номер