Расшифровать ребус числовой - Pascal

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.