Строки по Delphi

[StudentFIU]

Дан текст на русском языке. Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву.

[Serge_Bliznykov]

1) где Ваши наработки?
2) что именно не получается?
3) что в Вашем случае является разделителями слов?
4) поиском по форуму легко найдёте код на Pascal/Delphi, который разбирает текст по словам.
Ну, а если слово, например, в переменной Slowo,
то счётчик слов, начинающихся и заканчивающихся на одну и ту же букву будет так:

if Copy(Slowo,1,1) = Copy(Slowo, Length(Slowo),1) 
   then  Inc(Счётчик);