Pascal abc. дано натуральное число "n". составьте программу которая выводит максимальную цифру этого числа.

 var   n,m,a : integer; 
begin 
readln (n); 
While n > 0 do   begin   
a := n mod 10;     
if a > m then     
 m := a;   
n := n div 10;   
end; 
writeln (m); 
end.