Ребус "send+more=money": буквы заменить цифрами

uses crt;
var s,e,n,d,m,o,r,y,k:byte;
    mn,mn1:set of byte;
begin
clrscr;
mn1:=[0..9];
mn:=[];k:=0;
for s:=1 to 9 do
for e:=0 to 9 do
for n:=0 to 9 do
for d:=0 to 9 do
for m:=1 to 9 do
for o:=0 to 9 do
for r:=0 to 9 do
for y:=0 to 9 do
if (1000*s+100*e+10*n+d+1000*m+100*o+10*r+e=10000*m+1000*o+100*n+10*e+y)
and(s<>e)and(s<>n)and(s<>d)and(s<>m)and(s<>o)and(s<>r)and(s<>y)
and(e<>n)and(e<>d)and(e<>m)and(e<>o)and(e<>r)and(e<>y)
and(n<>d)and(n<>m)and(n<>o)and(n<>r)and(n<>y)
and(d<>m)and(d<>o)and(d<>r)and(d<>y)
and(m<>o)and(m<>r)and(m<>y)
and(o<>r)and(o<>y)and(r<>y) then
 begin
  writeln(s,e,n,d,'+',m,o,r,e,'=',m,o,n,e,y);
  mn:=mn+[s,e,n,d,m,o,r,y];
  k:=k+1;
 end;
writeln;
writeln('Всего решений=',k);
mn1:=mn1-mn;
if mn1=[] then write('В разные решения входят все цифры')
else
 begin
  writeln('Не входят цифры:');
  for s:=0 to 9 do
  if s in mn1 then write(s,' ');
 end;
readln
end.

uses crt;
var s,e,n,d,m,o,r,y:longint;
    mn,mn1:set of byte;
begin
clrscr;
mn1:=[0..9];
mn:=[];
for s:=1 to 9 do
for e:=0 to 9 do
for n:=0 to 9 do
for d:=0 to 9 do
for m:=1 to 9 do
for o:=0 to 9 do
for r:=0 to 9 do
for y:=0 to 9 do
if (9000*m+900*o+90*n+y=1000*s+91*e+10*r+d)
and(s<>e)and(s<>n)and(s<>d)and(s<>m)and(s<>o)and(s<>r)and(s<>y)
and(e<>n)and(e<>d)and(e<>m)and(e<>o)and(e<>r)and(e<>y)
and(n<>d)and(n<>m)and(n<>o)and(n<>r)and(n<>y)
and(d<>m)and(d<>o)and(d<>r)and(d<>y)
and(m<>o)and(m<>r)and(m<>y)
and(o<>r)and(o<>y)and(r<>y) then
 begin
  writeln(s,e,n,d,'+',m,o,r,e,'=',m,o,n,e,y);
  mn:=mn+[s,e,n,d,m,o,r,y];
 end;
writeln;
mn1:=mn1-mn;
if mn1=[] then write('В разные решения входят все цифры')
else
 begin
  writeln('Не входят цифры:');
  for s:=0 to 9 do
  if s in mn1 then write(s,' ');
 end;
readln
end.

uses crt;
var s,e,n,d,m,o,r,y:longint;
    mn,mn1:set of byte;
begin
clrscr;
mn1:=[0..9];
mn:=[];
for s:=1 to 9 do
 begin
  for e:=0 to 9 do
  if e<>s then
   begin
    for n:=0 to 9 do
     if (n<>s)and(n<>e)then
      begin
       for d:=0 to 9 do
       if(d<>s)and(d<>e)and(d<>n) then
        begin
         for m:=1 to 9 do
         if(m<>s)and(m<>e)and(m<>n)and(m<>d) then
          begin
           for o:=0 to 9 do
           if(o<>s)and(o<>e)and(o<>n)and(o<>d)and(o<>m) then
            begin
             for r:=0 to 9 do
             if(r<>s)and(r<>e)and(r<>n)and(r<>d)and(r<>m)and(r<>o) then
              begin
               for y:=0 to 9 do
               if(y<>s)and(y<>e)and(y<>n)and(y<>d)and(y<>m)and(y<>o)and(y<>r) then
               if(9000*m+900*o+90*n+y=1000*s+91*e+10*r+d) then
                begin
                 writeln(s,e,n,d,'+',m,o,r,e,'=',m,o,n,e,y);
                 mn:=mn+[s,e,n,d,m,o,r,y];
                end;
              end;
            end;
          end;
        end;
      end;
    end;
  end;
writeln;
mn1:=mn1-mn;
if mn1=[] then write('В разные решения входят все цифры')
else
 begin
  writeln('Не входят цифры:');
  for s:=0 to 9 do
  if s in mn1 then write(s,' ');
 end;
readln
end.