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