Распечатать слова, отличные от первого и симметричные!

const n=100;
type TVect=array[1..n] of string;
var m:TVect;
    count:integer;
procedure Words;
var c:char;
    Z:string; s:string;
    first:string;
    ok:boolean;
begin
 count:=0;
 read(c);
 ok:=true;
 while c<>'.' do
  begin
   while c=',' do read(c);
   if c<>'.' then
              begin
               s:='';
               while (c<>'.')and (c<>',') do
                begin
                 s:=s+c;
                 read(c)
                end;
                if ok then begin
                            first:=s;
                            ok:=false;
                           end;
                Z:=s;
                if first<>s then writeln (s);
              end
   end;
 readln
end;
begin
words;
readln
end.

uses crt;
function Simm(s:string):boolean;
var s1:string;
    i:byte;
begin
s1:='';
for i:=length(s) downto 1 do
s1:=s1+s[i];
if s1=s then Simm:=true
else Simm:=false;
end;
var t,t1,t2:string;
begin
clrscr;
writeln('Введите текст из слов, разделенных запятой:');
readln(t);
t:=t+',';
t1:=copy(t,1,pos(',',t)-1);
delete(t,1,pos(',',t));
while pos(',',t)>0 do
 begin
  t2:=copy(t,1,pos(',',t)-1);
  if (t2<>t1)and Simm(t2)then
  write(t2,' ');
  delete(t,1,pos(',',t));
 end;
readln
end.