Все лабораторные работы по паскалю / 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.