Найти минимальное из чисел, введенных с клавиатуры. Признак конца ввода число 0. Чисел неограниченное кол-во. Решать через repeat

Program abrakadabra;
var a,b,max:integer;
Begin
repeat
readln(a);
readln(b);
if a gt;= b then max:=a
else max:=b;
until a = 0;
writeln(max);
readln();
End.

00000000000000000000000000000000000000000000000000000000000000000000.1