Найти подходящие числа для ребуса

program rebus;
uses crt;
type kop=set of 0..9;
var s,o,j,e,d,i:integer;
    n1,n2,n3:integer;
    S1,S2:kop;
Procedure Print(x,y,z:integer);
begin
write(x);
write(' * ');
write(y);
write(' = ');
write(z);
writeln;
end;
begin
clrscr;
s1:=[ ];
for s:=1 to 9 do begin
  S1:=S1+[s];
    for o:=0 to 9 do
      if not(o in S1) then begin
         S1:=S1+[o];
           for j:=0 to 9 do
             if not(j in S1) then begin
                S1:=S1+[j];
                   for e:=0 to 9 do
                      if not(e in S1) then begin
                         S1:=S1+[e];
                            for d:=0 to 9 do
                               if not(d in S1) then begin
                                  S1:=S1+[d];
                                     for i:=1 to 9 do
                                         if not(i in S1) then begin
                                          S1:=S1+[i];
                                          n1:=10000*s+1000*o+100*j+10*e+d;
                                           n2:=n1*i;
                                            if ((n2>=10000) and (n2<=899991))
                                             and ((n2 div 10)=(n2 mod 10))
                                              and (not(n2 div 10) in S1)
                                               then  Print(n1,i,n1*i);
                                          end;
                                          S1:=S1-[i];
                                  end;
                                  S1:=S1-[d];
                                  end;
                          S1:=S1-[e];
                          end;
                S1:=S1-[j];
                end;
         S1:=S1-[o];
         end;
   S1:=S1-[s];
  readln;
end.