Напишите программку, которая вводит с клавиатуры числа до тех пор, пока

Program pol;
var
a, b, max, min: integer;
begin
max:=-100000; Нужно задать значения max и min заранее очень малюсеньким и очень великим, для того, чтобы обеспечить роль в сопоставлении и не вывести max и min к 0
min:=100000;
repeat
if (agt;max) and (alt;gt;0) then max:=a;
if (alt;min) and (alt;gt;0) then min:=a;
read(a);
until a=0;
writeln(Величайшее число = ,max);
writeln(Наименьшее число = ,min);
readln;
end.

Используем оператор цикла с постусловием, условие выхода из цикла: а=0.