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

var
   s:string;
   i,l:longint;
begin
   writeln('введите слово');
   readln(s);
   l:=0;
   for i:=1 to ord(s[0]) do{фишка паскала хранить в нулевом месте массива символ от количества элементов}
   begin
      if(s[i]=s[ord(s[0])-i+1]) then l:=l+1;{если одинаковые символы на равном расстоянии от концов, то увеличиваем счётчик}
   end;
   if(l=ord(s[0])) then writeln('полиндром'){если счётчик равен количеству элементов, то это полиндром}
   else writeln('не полиндром');
end.

Program palindromii;
uses crt;
function Palindrom(s:string):boolean;
var i:byte;
    s1:string;
begin
s1:='';
for i:=length(s) downto 1 do
s1:=s1+s[i];
if s=s1 then Palindrom:=true
else Palindrom:=false;
end;
 
var s,s1,s2:string;
    i,k:byte;
begin;
clrscr;
writeln('Введите строку из слов, разделенных пробелами.');
readln(s);
while pos('  ',s)>0 do {если 2 пробела рядом}
delete(s,pos('  ',s),1);{1 удаляем}
i:=length(s);
s1:='';
while s[i]<>' ' do{идем с конца, собираем последнее слово}
 begin
  s1:=s[i]+s1;
  i:=i-1;
 end;
k:=0;
while pos(' ',s)>0 do{идем с начала, пока есть пробелы}
 begin
  s2:=copy(s,1,pos(' ',s)-1);{первое слово}
  if (s2<>s1)and Palindrom(s2) then
   begin
    write(s2,' ');{если отличеется и палиндром, выводим}
    k:=k+1;
   end;
  delete(s,1,pos(' ',s));{удаляем первое слово}
 end;
if k=0 then write('Таких слoв нет!');
readln
end.