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

uses crt;
var s:string;
    max:char;
    kol: integer;

 
//процедура для поиска символа с максимальным порядковым номером 
procedure maxnom; 
 var dlina,i: byte;
begin

 dlina:=length(s);
  for i:=1 to dlina-1 do 
   begin
    if s[i]>s[i+1] then max:=s[i]
    else max:=s[i+1];
   end;
   
  kol:=0; 
  for i:=1 to dlina do 
   begin
    if max=s[i] then kol:=kol+1;
   end;
   
end;

begin
 writeln('Введите строку:');
 read(s);
  maxnom;
 writeln('Элемент с максимальным порядковым номером: ',max);
 writeln('Количество его повторений: ',kol);
end.