Даны натуральное число n, символы S1,… , Sn. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Выяснить, имеются ли два слова, каждое из которых получается переворачиванием другого — Pascal(Паскаль)

var
simvol:char;
b,c:array[1..100]of string;
i,j,n,k:integer;
s:string;
begin
writeln ('vvedite chislo simvolov');
readln(n);
writeln('wwedite simvoly');
for i:=1 to n do
begin
read(simvol);
s:=s+simvol;
end;
s:=' '+s;
for i:=1 to n+1 do
 
if (s[i]=' ')and (s[i+1]<>' ') then inc(k) else if s[i]<>' 'then
begin
b[k]:=b[k]+s[i];
c[k]:=s[i]+c[k];
end;
 
for i:=1 to k do
  for j:=1 to k do
  if (length(b[i])<=15)and(b[i]=c[j])then writeln(b[i]);
readln;
readln;
end.