Дана последовательность слов. Вывести на экран те слова последовательности, которые отличны от последнего слова

program pg_2013;
function polstr (s: string): boolean;
var n,
i: byte;
begin polstr := true;
n := length (s);
for i := 1 to n div 2 do
if s[i] <> s[n-i+1]
then begin polstr := false;
exit;
end;
end;
var
  i,j,k,l,n:integer;
  s,st,x:string;
  flag:boolean;
begin
  randomize;
    readln(st);
  for i:=1 to length(st) do
    if st[i]=' ' then l:=i;
  j:=0;
  for i:=l to length(st) do begin
    j:=j+1;
    s:=s+st[i];
  end;
  st:=' '+st;
  for i:=1 to length(st) do begin
    if st[i]=' ' then begin
      x:='';
      j:=i+1;
      while st[j]<>' ' do begin 
        x:=x+st[j];
        j:=j+1;
      end;  
      for k:=1 to length(s) do
        if s[k]<>x[k] then
          if polstr(x)=true then writeln(x);
     end;
   end;
end.

program pg_2013;
uses crt;
function polstr (s: string): boolean;
var n,i: byte;
    f:boolean;
begin
f:= true;
n := length (s);
i:=1;
while(i<=n div 2) and f do
if s[i] <> s[n-i+1] then f := false
else i:=i+1;
polstr:=f;
end;
 
var i,j,k,l,n:integer;
    st,s,x:string;
    flag:boolean;
begin
writeln('Введите последовательность слов, разделенных пробелами');
readln(st);
while st[length(st)]=' ' do //удалим пробелы в конце, если они есть
delete(st,length(st),1);
s:=''; //составим последнее слово
i:=length(st);
while st[i]<>' ' do
 begin
  s:=st[i]+s;
  i:=i-1;
 end;
n:=i; //длина без последнего слова
i:=1;
k:=0;
writeln('Симметричные слова, отличные от последнего');
while i<=n do
if(st[i]<>' ')and((i=1)or(st[i-1]=' ')) then
 begin
  x:='';
  j:=i;
  while (j<=n) and(st[j]<>' ') do
   begin
    x:=x+st[j];
    j:=j+1;
   end;
  if (x<>s)and polstr(x) then
   begin
    write(x,' ');
    k:=1;
   end;
  i:=i+length(x);
 end
else i:=i+1;
if k=0 then write('Таких слов нет');
end.