Расшифровать числовой ребус: "ДОСКИ*4=ЗАБОР"

var d,o,s,k,i,z,a,b,r:byte;
    n1,n2:integer;
    s1:set of byte;
begin
s1:=[];
for d:=1 to 2 do //больше не может быть т.к. 3*4 число двухзначное
if not(d in s1) then
 begin
  s1:=s1+[d];
  for o:=0 to 9 do
  if not(o in s1) then
   begin
    s1:=s1+[o];
    for s:=0 to 9 do
    if not(s in s1)then
     begin
      s1:=s1+[s];
      for k:=0 to 9 do
      if not(k in s1)then
       begin
        s1:=s1+[k];
        for i:=1 to 9 do //0 не может 0*4=0, а И<>Р
        if not(i in s1) then
         begin
          s1:=s1+[i];
          for z:=4 to 9 do //не может быть <1*4
          if not(z in s1) then
           begin
            s1:=s1+[z];
            for a:=0 to 9 do
            if not(a in s1) then
             begin
              s1:=s1+[a];
              for b:=0 to 9 do
              if not(b in s1) then
               begin
                s1:=s1+[b];
                for r:=0 to 8 do //не может  нечетное
                if not (r in s1) then
                 begin
                  s1:= s1+[r];
                  n1:=10000*d+1000*o+100*s+10*k+i; //число доски
                  n2:=10000*z+1000*a+100*b+10*o+r; //число забор
                  if n1*4=n2 then writeln(n1,' * 4 =',n2);
                  s1:=s1-[r];
                 end;
                s1:=s1-[b];
               end;
              s1:=s1-[a];
             end;
            s1:=s1-[z];
           end;
          s1:=s1-[i];
         end;
        s1:=s1-[k]
       end;
      s1:=s1-[s]
     end;
    s1:=s1-[o];
   end;
  s1:=s1-[d]
 end;
End.

var
  D, O, S, K, I, Z, A, B, { O, } R : Integer;
begin
  for D := 1 to 2 do { 3*4=12, значит чило разрядов результата должно быть 6 }
  
  for O := 0 to 9 do
    if D <> O then
    
  for S := 0 to 9 do
    if (D <> S) and (O <> S) then
    
  for K := 0 to 9 do
    if (D <> K) and (O <> K) and (S <> K) then
    
  for I := 0 to 9 do
    if (D <> I) and (O <> I) and (S <> I) and (K <> I) then
    
  for Z := 4 to 9 do { при Д=1 значение З=4 и меньше быть не может }
    if (D <> Z) and (O <> Z) and (S <> Z) and (K <> Z) and (I <> Z) then
    
  for A := 0 to 9 do
    if (D <> A) and (O <> A) and (S <> A) and (K <> A) and (I <> A) and (Z <> A) then
  
  for B := 0 to 9 do
    if (D <> B) and (O <> B) and (S <> B) and (K <> B) and (I <> B) and (Z <> B) and (A <> B) then
 
  for R := 0 to 9 do
    if (D <> R) and (O <> R) and (S <> R) and (K <> R) and (I <> R) and (Z <> R) and (A <> R) and (B <> R) then
    
  if ((((D*10 + O)*10 + S)*10 + K)*10 + I)*4 = (((Z*10 + A)*10 + B)*10 + O)*10 + R then
    WriteLn(D, O, S, K, I, ' х 4 = ', Z, A, B, O, R);
    
  WriteLn('end.');
end.