Работа с функциями и процедурами!

program pr1;
uses crt;
var str,str1:string; // Вводимая строка
    i,k,max:byte;
          m:char; { i - номер символа строки, счетчик цикла
                  k - счётчик повторений символа в строке
                  max - максимальное количество повторений
                  m - символ встречающийся максимальное количество раз}
begin
clrscr;
writeln('Введите строку символов');
readln(str);
str1:=str;          { Присваиваем строке str1 вводимую строку }
max:=0;
for i:=1 to length(str) do   { Проверяем все символы строки }
 begin
  k:=0;   {Обнуляем счетчик повторений }
  while pos(str[i],str1)>0 do  { Пока исходный символ входит в строку str1}
   begin
    k:=k+1;         { Наращиваем счечик повторений}
    delete(str1,pos(str[i],str1),1); { Удаляем этот символ из строки str1 }
   end;
  if k>max then   { Проверяем условие максимума повторений }
  begin
   max:=k;
   m:=str[i];
  end;
  end;
write('Символ,встречающийся наибольшее количество раз ',m);
readln;
end.

program pr1;
 
var str,str1:string; // Вводимая строка
    i,max,k:byte;
          m:char; { i - номер символа строки, счетчик цикла
                  k - счётчик повторений символа в строке
                  max - максимальное количество повторений
                  m - символ встречающийся максимальное количество раз}
Function F(Var str1:string;i:byte):byte;
Var k:byte;
Begin
   k:=0;
   while pos(str[i],str1)>0 do  { Пока исходный символ входит в строку str1}
   begin
    k:=k+1;         { Наращиваем счечик повторений}
    delete(str1,pos(str[i],str1),1); { Удаляем этот символ из строки str1 }
   end;
   F:=k;
End;
begin
 
writeln('Введите строку символов');
readln(str);
str1:=str;          { Присваиваем строке str1 вводимую строку }
max:=0;
for i:=1 to length(str) do   { Проверяем все символы строки }
 begin
  k:=F(str1,i);
  if k>max then   { Проверяем условие максимума повторений }
  begin
   max:=k;
   m:=str[i];
  end;
  end;
write('Символ,встречающийся наибольшее количество раз ',m);
readln;
end.