Выяснить, сколько в тексте слов перевертышей?

[Экспандер]

Выяснить, сколько в тексте слов перевертышей. Данная задача по теме: строки. Паскаль АВС

[Vanta11a]

Ну и что? Самостоятельно что сделано?

[Экспандер]

Ничего, не знаю как прописать, что бы он нашел эти слова среди остальных.

[Vanta11a]

Ок. Покажи, как вводишь слова.

[Экспандер]

В смысле какие именно? Самолет Казак шалаш и т.д

[Stilet]

Код просят показать ввода слов тебя )
А проверка на палиндром может выглядеть так:

Function Pali(s:String):Boolean;
var i:integer;
begin
 for i:=1 to Length(s) div 2 do 
  if s[i]<>s[Length(s)-i+1] then begin Result:=false; exit; end;
 Result:=True;
end;

Соответственно if Pali('Казак') then Это палиндром.

[Stilet]

Код просят показать ввода слов тебя )
А проверка на палиндром может выглядеть так:

Function Pali(s:String):Boolean;
var i:integer;
begin
 for i:=1 to Length(s) div 2 do 
  if s[i]<>s[Length(s)-i+1] then begin Result:=false; exit; end;
 Result:=True;
end;

Соответственно if Pali('Казак') then Это палиндром.