Помогите найти ошибку (паскаль)

program u1;

var max1, max2, k:longint;

begin

readln (k) ;

max1:=k;

max2:=k;

repeat

readln (k) ;

if k>max1 then begin

max2:=max1;

max1:=k;

until k0;

writeln (max2) ;

end;

end.

Выводит ошибку в 12 строчке "встречено until, а ожидалось; "

Правильный ответ на вопрос 👍 «Помогите найти ошибку (паскаль) program u1; var max1, max2, k:longint; begin readln (k) ; max1:=k; max2:=k; repeat readln (k) ; if k>max1 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!