Дано целое число n найти самую максимальную цифру этого числа

Var n,x,max:integer;
begin
readln(n);
while n>0 do
  begin
  x:=n mod 10;
  if x>max then max:=x;
  n:=n div 10;
  end;
writeln('Максимальная цифра: ',max);
end.