Выбрать из строки полиндромы (перевёртыши) и составит из них новую строку.

uses
  crt;
const
  dividers=[' ',',','.',':',';','+','-','*','/','|','\','=','-','_'];{äîïèñàòü íóæíûå}
{ôóíêöèÿ ïðîâåðêè íà ïàëèíäðîì}
function Pa(s:string):boolean;
var
  i:integer;
  fl:boolean;
begin
  fl:=true;
  for i:=1 to length(s)div 2 do
    if s[i]<>s[length(s)-i+1] then
      fl:=false;
  Pa:=fl
end;
var
  s,temp,result:string;
  i:integer;
begin
  clrscr;
  writeln('Ââåäèòå ñòðîêó...');
  readln(s);
  temp:='';
  {ïðîáåãàåì âñþ ñòðîêó ïîñèìâîëüíî}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
    begin
      if temp<>'' then
      begin
        if Pa(temp) then
          result:=result+temp+' ';
        temp:='';
      end;
    end;
  end;
  writeln(result)
end.

var
a,t,s:string;
b:array[1..100]of string;
i,k,f,j:integer;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:=1 to k do
begin
f:=0;
t:=b[i];
for j:=1 to length(t) div 2 do
if t[j]<>t[length(t)+1-j] then f:=1;
if f=0 then s:=s+t+' ';
end;
writeln(s);
end.