Сам пременные объявишь
begin
read(max);
read(min);
while(n <> 0) do // пока не равну нолю делать то то. ноль - знак окончание ввода чисел
if max < min then min := max;
writeln(max);
end.
