Определить количество слов, которые начинаются и заканчиваются одной и той же буквой

program kkk;
uses crt;
const pp:set of char=[' ','?','!',':',';',',','.','_'];
var count,i,j:integer;
    f:boolean;
    st,buf:string;
    slova:array[1..100]of string;
    c1,c2:integer;
 
begin
 clrscr;
 c1:=0;
 c2:=0;
 write('Строка -> ');
 readln(st);
 count:=1;
 repeat
  if (st[1] in pp) or (length(st)=0) then while st[1] in pp do delete(st,1,1)
  else
  begin
   while not(st[1] in pp) and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=0) and (length(buf)=0);
 
  for i:=1 to count-1 do
  begin
   if (pos('w',slova[i])>0) or (pos('W',slova[i])>0)  then inc(c1);
   if upcase(slova[i][1])=upcase(slova[i][length(slova[i])]) then inc(c2);
  end;
  writeln('Слов, содержащих W =',c1);
  writeln('Слов, начинающихся и заканчивающихся на одну и ту же букву =',c2);
  readln;
end.