Подсчитать количество слов, что одинаково начинаются и заканчиваются

var
    s, word: string;
    c: Char;
    k: Integer;
begin
    readLn(s);
    k := 0;
    i := 1;
    while (i <> length(s)) do begin
        word := '';
        while (i <> length(s)) and (s[i] <> ' ') do begin
            word := word + s[i];
            inc(i);
        end;
        if word[1] = word[length(word)] then 
            inc(k);
        inc(i);
    end;
    
    writeLn(k);
end.

program z_string; 
uses crt; 
const Letters = ['a'..'z','A'..'Z','а'..'я','А'..'Я']; 
var StringS, Symbol :string; 
     CounterI, Number:byte; 
begin
 clrscr; 
 writeln('Введите строку текста'); 
 readln(StringS); 
  
 Number := 0; 
 Symbol := ''; 
for CounterI := 1 to length(StringS) do 
 begin 
  if (StringS[CounterI] in Letters) and (Symbol = '') then 
   Symbol := StringS[CounterI]; 
    
  if (not(StringS[CounterI] in Letters)) and (CounterI <> 1) then 
  begin 
   if StringS[Counteri - 1] = Symbol then 
    inc(Number); 
   Symbol := ''; 
  end; 
   
  if (CounterI = length(StringS)) and (StringS[CounterI] = Symbol) then 
   inc(Number); 
 end; 
  
 writeln; 
 writeln('Количество слов начинающихся и заканчивающихся одной и той же буквой ', Number); 
 readln; 
end.