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

Question

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

Answer 1

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.

Comments

Можно проще! Чем меньше кода-тем лучше)