В строке есть слова разделённые пробелом,найти среди них палиндром и вывести на экран — Pascal(Паскаль)

var
  s,x:string;
  i,n,k:integer;
  pl:boolean;
begin
  write('Введите текст: ');
  readln(s);
  s:=s+' ';
  x:='';
  i:=1;
  pl:=false;
 
  while i<=length(s) do begin
                          while s[i]<>' ' do begin
                                               x:=x+s[i];
                                               i:=i+1;
                                             end;
                          for k:=1 to length(x) div 2 do if x[k] <> x[length(x)-k+1] then break
                                                                                     else pl:=true;
                                                                           
                          if pl then writeln(x);
                          pl:=false;
                          i:=i+1;
                          x:='';
                        end;
 
 
  
end.