Занятие 15 - образец

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

Program p1;
  Var n,max,n1:integer;
Begin
  Write ('n='); Readln(n);
  max:=0;
  While n<>0 do
   Begin
    n1:=n mod 10;
    If n1>max Then
     max:=n1;
    n:= n div 10
   End;
Writeln ('max=', max)
End.