Все лабораторные работы по паскалю / 7 лаб. Подпрограммы / procedure / Program4

uses crt;
var a:longint;
    max: byte;
  
 // процедура на поиск максимальной цифры в числе 
 procedure maximal;    
 begin
  write('Введите число: '); read(a);
  max:=0;
   while a>0 do begin
    if a mod 10>max then max:=a mod 10;
    a:=a div 10;
   end;
 end;
 
begin
 maximal;
 writeln('Максимальная цифра=',max);
 readln;
end.