порешаем?

{$MODE OBJFPC}
const max=10;
type TArray=array[1..max]of 0..9;

var _s,_dest:string;
    data:TArray;

    source,dest:TArray;
    csource,cdest:byte;

    alpha:array[char]of byte;
    counter:byte=0;

procedure setAlpha(s:string);
 var i:integer;
 begin for i:=1 to length(s) do if alpha[s[i]]=0 then begin inc(counter); alpha[s[i]]:=counter; end; end;

procedure setArray(s:string; var a:TArray; var ca:byte);
 var i:integer; begin ca:=length(s);  for i:=1 to ca do a[i]:=alpha[s[i]]; end;

function a2i(const a:TArray; ca:byte):int64;
 var i:byte; begin  result:=0; for i:=1 to ca do result:=result*10+data[a[i]]; end;

function a2s(const a:TArray; ca:byte):string;
 var i:byte; begin result:=''; for i:=1 to ca do result:=result+chr(data[a[i]]+ord('0')); end;

function calc(source,dest:int64):boolean;
 begin result:=source+source=dest; end;

var sSet:set of byte=[0..9];
    a,b:int64;
    astr,bstr:string;

procedure transposition(cnt:integer);
  var i:byte;
 begin
  if cnt=0 then begin
   a:=a2i(source,csource);
   b:=a2i(dest,cdest);
   if calc(a,b) then begin
    astr:=a2s(source,csource);
    bstr:=a2s(dest,cdest);
    writeln (astr,'+',astr,'=',bstr);
   end;
  end
  else begin
   for i:=0 to 9 do begin
    if i in sSet then begin
     data[cnt]:=i;
     exclude(sSet,i);
     transposition(cnt-1);
     include(sSet,i);
    end;
   end;
  end;
 end;

begin
 readln(_s); setAlpha(_s);
 readln(_dest); setAlpha(_dest);
 setArray(_s,source,csource);
 setArray(_dest,dest,cdest);
 writeln('-------------------');
 transposition(counter);
end.