Найти минимальное из чисел, введенных с клавиатуры. Признак конца ввода число 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.