Множества: загадка-ребус Опции

[Amro]

Господа прошу у вас помощи!!! У меня не получается сделать две задачи по теме "Множества".. Вот они:

• Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст не менее двух раз; все согласные буквы входящие только в одно слово.
• Разгадайте ребус: БАРБОС + БОБИК = СОБАКИ.

В первой я не понимаю, как можно удвоить каждую букву входящую во множество...
Вторая вообще полный ужас, у меня есть даже наподобие ребусы, вот решение одного из них: "муха + муха = слон"

Program Example_Set_5;
Uses Crt;
Type
  mn = Set of 0..9;
Var
  m, y, x, a: 0..9; { цифры числа МУХА }
  count, { счетчик числа найденных решений }
  n1, n2: Integer; { числа МУХА и СЛОН }
  a1, a2, a3, a4: 0..9; { цифры числа CЛOH }
  s1, s2: mn; { для хранения цифр каждого из чисел }

Procedure Print( x, y: Integer); { вывод решения в виде ребуса }
begin
  Inc(count);
  writeln(count,':');
  Writeln( x: 5 );
    Writeln('+');
    Writeln( x: 5 );
    Writeln('-------');
    Writeln( y:5 );
  writeln;
  readkey; { Остановка для просмотра всех решений }
end;

Begin
  ClrScr;
  count := 0;
  s1 := []; s2 := [];
  for m := 1 to 4 do begin
    s1:=s1 + [m]; { заносим первую использованную цифрру }
    for y:=0 to 9 do

    { если эта цифра не была еще взята, то добаеляем ее во множество
       цифр числа МУХА и выбираем цифру для следующей буквы }
    if not (y in s1) then begin
      s1 := s1 + [y];
      for x := 0 to 9 do
        if not (x in s1) then begin
          s1 := s1 + [x];
          for a:=1 to 9 do
            if not (a in s1) then begin
              s1 := s1 + [a];
              n1:=1000*m+100*y+10*x+a; { число для слова МУХА }
              n2 := 2*n1; { число для слова СЛОН }
              a1:=n2 div 1000; { выделяем цифры СЛОНа }
              a2:=n2 div 100 mod 10;
              a3:=n2 div 10 mod 10;
              a4:=n2 mod 10;
              s2:=[a1,a2,a3,a4]; {множество цифр СЛОНа}
              { если слова состаят из разных цифр
                 и в слове СЛОН нет одинаковых, то
                 вывыводим решнение ребуса на экран }
              if (s1 * s2 = []) and ([a1]*[a2] = [])
                 and ([a1]*[a3] = []) and ([a1]*[a4] = [])
                 and ([a2]*[a3] = []) and ([a2]*[a4] = [])
                 and ([a3]*[a4] = []) then Print(n1, n2);
              s1 := s1 - [a]; { удаляем занесенную цифру }
            end;
          s1 := s1 - [x];
        end;
        s1 := s1 - [y];
    end;
    s1 := s1 - [m];
  end;
  Writeln('Всего найдено ', count, ' решения. Нажмите Enter ... ');
  Readln;
End.

В принципе решение этой задачи до меня дошло, но здесь на самом деле просто, потому что складываются два одинаковых слова.......это элементарно, если хорошо разобраться, но вот если слова разные то до меня не доходит как написать программу, помогите пожалуйста кто может.......

[Amro]

Ну что там как дела??? ты мне ещё не расхотел помочь, в общем я немного допетрился и понял что дело всё вот в этой строке sum:=(B)*100000+(a+B)*10000+(r+o)*1000+(2*B)*100+(o+i)*10+(s+k); она неправильна, потому что выдаёт глюк, который к сожалению я не могу найти!!! попробуй в циклах поставить такие значения for b:=7 to 7 do, for  a:=5 to 5, короче методом от противного, аналогично r=4,j=2,s=8,i=9,k=1, т.е это числа из решения  754728+72791=827519........
далее я пробую вывести на экран числовое значение sobaki write(sobaki), получаю 827519, а вот к сожалению с sum проблемы но ведь тоже получится должно 827519, а получается совсем другое число 41087........ в общем сам посмотри

Program   ryr;
uses crt;
var
b,a,r,o,s,k,i : 0..9;
dig : set of 0..9;
sobaki : longint;
sum,sum1 : word;
begin
clrscr;
 for b:=7 to 7 do begin
  include(dig,b);
    for a:=5 to 5 do
      if not (a in dig) then begin
      include(dig,a);
         for o:=2 to 2 do
            if not (o in dig) then begin
            include(dig,o);
              for s:=8 to 8 do
               if not (s in dig) then begin
               include(dig,s);
                 for k:=1 to 1 do
                  if not (k in dig) then begin
                  include(dig,k);
                    for i:=9 to 9 do
                     if not (i in dig) then begin
                     include(dig,i);
                     for r:=4 to 4 do
         if not (r in dig) then begin
         include(dig,r);
sum:=b*100000+(a+b)*10000+(r+o)*1000+(2*b)*100+(o+i)*10+s+k;writeln(sum);
sobaki:=s*100000+o*10000+b*1000+a*100+k*10+i; writeln(sobaki);
if (sum<>sobaki) then writeln(b,a,r,b,o,s,'+',b,o,b,i,k,'=',s,o,b,a,k,i);
                     exclude(dig,r);
                     end;
              exclude(dig,i);
              end;
            exclude(dig,k);
            end;
          exclude(dig,s);
          end;
        exclude(dig,o);
        end;
      exclude(dig,a);
      end;
    exclude(dig,b);
     end;
end.

Кстати тут я специально заменил if sum=sobaki на if sum<>sobaki, чтоб увидеть неверное решение  754728+72791=827519.............
Посмотри пожалуйста!!!! Блин завтра вечером уже здавать, а мне обязательно надо сдать, а то к экзамену не допустят!!!!