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

uses crt;
var s:string;
    max:char;
    kol: integer;
    
//функция для поиска символа с максимальным порядковым номером 
function maxnom:char;
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];
  maxnom:=max 
  end;
  
 kol:=0; 
 for i:=1 to dlina do 
  begin
   if max=s[i] then kol:=kol+1;
  end;
   
end;

begin

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