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

uses crt;
type natur=1..maxlongint;
var n:natur;
    k,mx,mn:byte;
begin
clrscr;
write('Введите натуральное число до ',maxlongint,' n=');
readln(n);
mx:=0;
mn:=9;
while n>0 do
 begin
  k:=n mod 10;
  if k>mx then mx:=k
  else if k<mn then mn:=k;
  n:=n div 10;
 end;
write('Макс=',mx,' мин=',mn);
readln
end.