Строки. В тексте найти, какая из букв первого слова встречается чаще и определить количество ее повторений.

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];//буквы
var s,s1:array[1..1000] of char;//массив символов - текст
    c:char;
    n,m,i,j,k,p1,mx:integer;
begin
clrscr;
writeln('Введите текст, окончание ввода F1:');
n:=0;
repeat
c:=readkey;
if c<>#059 then//расширенный код клавиши F1
  begin
   n:=n+1;
   write(c);
   s[n]:=c;//составляем текст
  end
else writeln;
if n=0 then writeln('Вы не ввели ни одного символа, повторите ввод');
until (c=#059)and(n>0);
p1:=0;//найдем первую букву, в начале могут быть не буквы
for i:=1 to n do
if s[i] in bk then
 begin
  p1:=i;
  break;
 end;
if p1=0 then
 begin
  writeln('В тексте нет букв!');
  readln;
  exit;
 end;
m:=0;//составим первое слово
i:=p1;
while s[i] in bk do//пока буквы
 begin
  m:=m+1;
  s1[m]:=s[i];
  i:=i+1;
 end;
mx:=1;c:=s1[1];//найдем самый частый символ первого слова
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
  if s[j]=s1[i] then k:=k+1;
  if k>mx then
   begin
    mx:=k;
    c:=s1[i];
   end;
 end;
writeln('Первое слово:');
for i:=1 to m do
write(s1[i]);
writeln;
write('Чаще других встречается буква ',c,'  ',mx,' рз.');
readln
end.