в строке подсчитать количество слов которые одинаково начинаются и заканчиваются!? Опции

[PORTUGAL]

Здравствуйте! Сейчас решаю задачи по паскалю и застрял вот на чем: во введенной строке нужно подсчитать количество слов которые одинаково начинаются и заканчиваются, как это реализовать?

[klem4]

uses crt;
var
   s : string;
   i,back,count : byte;

begin
   clrscr;
   readln(s);
   i := 1;
   count := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i]=' ')  do inc(i);
      if (i <= length(s)) then begin
         back := i;
         while(i<=length(s)) and (s[i] <> ' ') do inc(i);
         if s[pred(i)] = s[back] then inc(count);
      end;
   end;
   writeln('count = ',count);

   readln
end.