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

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 k<>0;
writeln (max2);
end;
end.

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