Функция для подсчета

[roulis2844sasha]

Помогите написать функцию для подсчета у которых первые и последние символы совпадают

Например

CountBeginEnd('Тут какой нить текст')

function CountBeginEnd(const s: string): integer;
begin
  //А вот тут хз что должно быть
end;

Само задание

найти количество слов, у которых первые и последние символы совпадают между собой

[BARNEY]

if copy(s,1,1)=copy(s,lenght(s)-1,1) then result:=true
else result:=fasle;

[Serge_Bliznykov]

посмотрите мой код тут
только замените строчку
if s[i] in ['A'..'Z','a'..'z'] then w := w+s[i]
на строчку

   if s[i] <> ' ' then w := w+s[i]

Это если разделитель пробел. Если разделителем слов в строке могут быть и другие символы (знаки пунктуации, например, то укажите их в данной проверке...