Дано натурально число. найти его максимальную цифру, используя цикл while. (паскаль)

Program max;
uses  crt;
var n, x:integer;

begin
clrscr;
Write('N = ');
readln(n);

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

write('Наибольшая цифра x = ', x);
end.