помогите отыскать ошибку (паскаль)program u1;var max1,max2,k:longint;beginreadln

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

program u1;
var max1,max2,k:longint;
begin
readln (k);
max1:=k;
max2:=k;
repeat
readln (k);
if kgt;max1 then begin
max2:=max1;
max1:=k;
until klt;gt;0;
writeln (max2);
end;
end.

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