Delphi 7. Циклы. Задача

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var
i,j : integer;
s : string;
begin
s1 := Edit1.Text;
s2 := Edit2.Text;
s3 := Edit3.Text;

StringToBukvy(mas,masN);

if rec(1) = true then
 begin
 Memo1.Clear;
 for i:=1 to masN do
  Memo1.Lines.Add(mas[i]+'  =  '+IntToStr(nummas[i]));

 s := s1 + ' = ';
 for i:=1 to length(s1) do
  for j:=1 to masN do
   if s1[i]=mas[j] then
    begin
    s := s + IntToStr(nummas[j]);
    break;
    end;
 Memo1.Lines.Add(s);

 s := s2 + ' = ';
 for i:=1 to length(s2) do
  for j:=1 to masN do
   if s2[i]=mas[j] then
    begin
    s := s + IntToStr(nummas[j]);
    break;
    end;
 Memo1.Lines.Add(s);

 s := s3 + ' = ';
 for i:=1 to length(s3) do
  for j:=1 to masN do
   if s3[i]=mas[j] then
    begin
    s := s + IntToStr(nummas[j]);
    break;
    end;
 Memo1.Lines.Add(s);
 end;

ShowMessage('Расчет окончен!');
end;

end.

----------------
Также прикрепляю экзешник и отдельно проект.

[Sazary]

Немного изменил. Теперь выводит все возможные варианты, а не первый найденный.

----------
Собственно, протестировать можно довольно просто: пишете верный пример, а потом заменяете цифры буквами (хотя, на самом деле, и этого делать не обязательно).