Необходимо определить количество слов, которые являются "перевертышами"

[Алексей_1]

Пусть дан текст в виде символьной строки, оканчивающейся точкой. Необходимо определить количество слов, которые являются "перевертышами" (например: казак, шалаш), то есть читаются одинаково с начало и с конца слова. Слова в предложении определяются одним или несколькими пробелами. Для определения слова используйте функцию.

Помогите плз((

[MoBLer]

для определения слова перевертыша алгоритм такой:
s- слово

l:=length(s);
for l downto 1 do
m:=m+s[l];

if m=s then writeln('слово перевертыш');

А вот тут пример как находить слова

[Serge_Bliznykov]

я бы предложил такую функцию для проверки, является ли слово палиндромом

function isPalindrom(const ss : string) : boolean;
var i, k : integer;
begin
  i := 1;
  k := length(ss);
  while (i<= (k div 2)) and
    ( ss[i] = ss[k-i+1]) do inc(i);
  isPalindrom := i>(k div 2);
end;