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

uses crt;
var n:longint;
    mx:byte;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
mx:=0;
while n>0 do
 begin
  if n mod 10 >mx then mx:=n mod 10;
  n:=n div 10;
 end;
write('Самая большая цифра числа=',mx);
readln
end.