Информатика

Гермоген

7 марта, 18:09

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

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, а ожидалось; "