Поиск слов, у которых первая и последняя буквы одинаковые - PascalABC.NET

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

1.поиск слов, у которых первая и последняя буквы одинаковые 2.все согласные, которые входят только в одно нечетное слово

Решение задачи: «Поиск слов, у которых первая и последняя буквы одинаковые»

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

begin
  var d := (' .,!?:;''"/=<>{}[]()-+').ToCharArray;
  var a := ReadLnString('Введите предложение:').ToWords(d);
  foreach var w in a do
    if w[1] = w[w.length] then
      Print(w);
end.

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

В данном коде используется язык программирования PascalABC.Net.

Первая строка кода объявляет переменную d типа array и инициализирует её символами, которые могут быть использованы в качестве первой и последней буквы слова.
Вторая строка кода считывает из консоли строку, разделяет её на слова и сохраняет их в массив a.
Далее, в цикле foreach перебираются все слова из массива a.
В условии цикла проверяется, равны ли первая и последняя буквы текущего слова. Если это так, то слово выводится на экран.
Код не содержит обработки ошибок, поэтому при неправильном вводе или отсутствии ввода программа может выдать исключение.