Отыскать наибольшую и меньшую числа в записи данного естественного числа (Pascal

Program f1cda001;
var a, b, c, min, max: Integer;
begin
writeln('Введите число:');
readln(b);
min:=9;
max:=0;
repeat
begin
c:=b mod 10;
b:=b div 10;
If clt;min Then min:=c;
If cgt;max Then max:=c;
end;
until blt;=0;
writeln('Наивеличайшее значение:',max);
writeln('Меньшее значение:',min);
end.