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

00000000000000000000000000000000000000000000000000000000000000000000.1

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