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

Program PascalGuru;

var
  n: integer;
  MAX: integer;

begin
  write('Vvedite celoe cislo: ');
  readln(n);

  MAX := 0;

  while n <> 0 do
  begin
    if n mod 10 > MAX then
      MAX := (n mod 10);
    n := n div 10;
  end;

  writeln('MAX= ', MAX);

  readln;

end.