Дано натуральное число. найти максимальную цифру.
в паскале. через процедуры

Procedure max(n:integer; var m:integer);
begin
m:=0;
while ngt;0 do
 begin
 if n mod 10 gt; m then m:=n mod 10;
 n:=n div 10;
 end;
end;
var a,k:integer;
begin
write(a = );
readln(a);
max(a,k);
writeln(max = ,k);
end.

Пример:
a = 2583
max = 8

Ммм, информатика var n,k:integer;

begin

readln(n);

k:=n mod 10;

while ngt;0 do begin

      n:=n div 10;

      if klt;(n mod 10) then k:=n mod 10;

      if k=9 then break;

end;

writeln(k);

end.