Определить, можно ли из цифр одного числа составить другое

var num1, num1_1, num2_2, num2, new_num2, n, a, b, found, need, stop: integer;
 
begin
    readln(num1);
    readln(num2);
    num2_2 := num2;
    num1_1 := num1;
    stop := 0;
 
    while num2_2 <> 0 do
    begin
        n := num1_1 mod 10;
        num1_1 := num1_1 div 10;
        a := num2_2;
        found := 0;
 
        while a <> 0 do
        begin
            b := a mod 10;
            a := a div 10;
            if b = n then begin need := b; found := 1; break end;
        end;
 
        if found = 0 then begin writeln('Из числа ', num1, ' нельзя составить ', num2); stop := 1; break end;
 
        a := num2_2;
        new_num2 := 0;
 
        while a <> 0 do
        begin
            if a mod 10 <> need then new_num2 := new_num2 * 10 + a mod 10;
            a := a div 10;
        end;
        num2_2 := new_num2;
    end; 
    if stop = 0 then writeln('Из числа ', num1, ' можно составить ', num2);
end.

var
  n, nt, m, mt, i: integer;
  d: array[0..9] of integer;
begin
  write('n = ');
  readln(n);
  nt := n;
  write('m = ');
  readln(m);
  mt := m;
  if (n div m > 9) or (m div n > 9) then d[0] := 1
  else
    repeat
      inc(d[nt mod 10]);
      nt := nt div 10;
      dec(d[mt mod 10]);
      mt := mt div 10
    until nt = 0;
  i := 0;
  while (i <= 9) and (d[i] = 0) do inc(i);
  if i > 9 then writeln('Из цифр числа ', n, ' можно составить число ', m)
  else writeln('Из цифр числа ', n, ' нельзя составить число ', m)
end.

var
  n, m, t: Integer;
  d: array [0..9] of Integer;
begin
  Write('n m: '); ReadLn(n,m);
  t:=n; repeat Inc(d[t mod 10]); t:=t div 10; until t=0;
  t:=m; repeat Dec(d[t mod 10]); t:=t div 10; until t=0;
  t:=9; while (t>=0) and (d[t]>=0) do Dec(t);
  Write('Из цифр числа ',n,' составить число ',m,' ');
  if t<0 then WriteLn('можно') else WriteLn('нельзя');
end.

  if trunc(ln(n) / ln(10)) <> trunc(ln(m) / ln(10)) then d[0] := 1

type
  digits = array[0..9] of integer;
 
procedure explode(k: integer; var x: digits; p: integer);
begin
  repeat
    inc(x[k mod 10], p);
    k := k div 10
  until k = 0
end;
 
var
  n, m, i: integer;
  d: digits;
begin
  write('n = ');
  readln(n);
  write('m = ');
  readln(m);
  explode(n, d, 1);
  explode(m, d, -1);
  i := 0;
  while (i <= 9) and (d[i] = 0) do inc(i);
  if i > 9 then writeln('Из цифр числа ', n, ' можно составить число ', m)
  else writeln('Из цифр числа ', n, ' нельзя составить число ', m)
end.