Найти число таких групп букв, которые начинаются и кончаются одной и той же буквой- Pascal(Паскаль)

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