Дана строка символов ,разделённые пробелами(одним или несколькими) и не содержащие пробелов внутри себя,будем называть словами. Найти количество слов у которых первый и последний символы совпадают между собой — Pascal(Паскаль)

var
  s: string;
  i, Count, x: integer;
begin
  ReadLn(s);
  i := 1;
  Count := 0;
  while i <= Length(s) do begin
    x := i;
    while (s[i] <> ' ') and (i <= Length(s)) do Inc(i);
    if s[x] = s[i-1] then Inc(Count);
    while (s[i] = ' ') and (i <= Length(s)) do Inc(i);
  end;
  WriteLn('Количество слов с одинаковыми первым и последним символами: ', Count);
end.