В введенной строке подсчитать количество слов, что одинаково начинаются и заканчиваются(Примечание: Слова в текстовой строке отделены пробелами или группами пробелов.

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. ахах тоже составляли такую,прикольная;)  

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             i nc(k);         nc(i);     end;         writeLn(k); end.