С клавиатуры вводится натуральное число N. Найдите и выведите самую большую цифру этого числа.

спасибо

varn,m:integer;beginread(n);m:=0;while n<>0 dobeginif m<(n mod 10) then m:=n mod 10;n:=n div 10;end;writeln(m);end.