Подсчитать число вхождений буквы f в первые три группы букв (в предположении, что текст содержит не менее трех групп букв) — Pascal(Паскаль)

uses crt;
const bk=['А'..'п','р'..'ё','A'..'Z','a'..'z'];
var s,s1:string;
    i,j,g,k:byte;
begin
clrscr;
writeln('Программа осуществляет поиск буквы f в первых трех группах букв.');
writeln;
writeln('Введите строку, содержащую не менее трех групп букв:');
readln(s);
i:=1;
g:=0;
s1:='';
while(i<=length(s))and(g<3) do
if (s[i] in bk)and((i=1)or not (s[i-1] in bk))then
 begin
  g:=g+1;
  j:=i;k:=1;
  while(j<=length(s))and(s[j] in bk)do
   begin
    s1:=s1+s[j];
    j:=j+1;
    k:=k+1;
   end;
  i:=i+k;
 end
else i:=i+1;
if g<3 then write('В строке нет трех групп букв')
else
 begin
  writeln('Символы из первых 3 групп букв:');
  writeln(s1);
  k:=0;
  for i:=1 to length(s1) do
  if s1[i]='f' then k:=k+1;
  write('Буква f встречена ',k,' рз.');
 end;
readln
end.