Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой - PascalABC.NET

Формулировка задачи:

Прошу о помощи... Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. Код программы чтобы был очень прост и понятен. Сделал все 34 задания из практики, кроме это. В ступоре...

Решение задачи: «Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой»

Листинг программы

begin
  var S : String := ReadString('Введите строку:');
  var count := 0;
  foreach var W in S.ToWords do
    if W[1] = W[W.Length] then
      begin
        if count = 0 then WriteLn('Слова, которые начинаются и оканчиваются одной и той же буквой:');
        WriteLn(W);
        count += 1;
      end;
  if count = 0 then WriteLn('Нет слов, которые начинаются и оканчиваются одной и той же буквой.');
end.

Объяснение кода листинга программы

Переменная S типа String инициализируется значением, введенным пользователем с помощью функции ReadString.
Переменная count инициализируется нулем и используется для подсчета найденных слов.
В цикле foreach перебираются все слова из строки S.
Для каждого слова W проверяется условие W[1] = W[W.Length]. Если оно выполняется, то это слово удовлетворяет условию задачи.
Если слово удовлетворяет условию, то выводится на экран с помощью функции WriteLn, а значение переменной count увеличивается на единицу.
Если после выполнения цикла count остается равным нулю, то выводится сообщение Нет слов, которые начинаются и оканчиваются одной и той же буквой.