Найти наибольшую и наименьшую цифры в записи данного натурального числа. (программа Паскаль)

Question

Найти наибольшую и наименьшую цифры в записи данного натурального числа.

Answer 1

Var
  n: Longint;
  i,min,max: Byte;
BEGIN
Write('Введите число: ');
Readln(n);
min:=9;
max:=0;
While n>0 do
begin
  i:=n mod 10;
  n:=n div 10;
  If i<min Then min:=i;
  If i>max Then max:=i;
end;
Writeln('Наиб. цифра: ',max);
Writeln('Наим. цифра: ',min);
END.