Необычная выборка

const len=50;
var mas:array[0..len] of integer;
i,j,x:integer;
begin
Randomize;
for i:=0 to len do
mas[i]:=Random(len);
 
TryStrToInt(edit1.Text,x);
 
for i:=0 to high(mas) do
  for j:=0 to high(mas) do
  begin
    if  mas[i]+mas[j]=x then
    begin
     label1.Caption:='Положительно'+ #10#13+'результат будет верным при сложении '+inttostr(i)+' номера массива и '+inttostr(j)+#10#13+'mas['+inttostr(i)+']='+inttostr(mas[i])+#10#13+'mas['+inttostr(j)+']='+inttostr(mas[j]);
     break;
     end  else  label1.Caption:='Отрицательно';
  end;
end;

type
  TIntArray = array of Integer;
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure SeekSum(const SumForSeek: Integer; const A: TIntArray; var X: TIntArray);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  I   : Integer;
  S   : String;
  A, X: TIntArray;
begin
  SetLength(A, 10);
  A[0]:=2;
  A[1]:=120;
  A[2]:=784;
  A[3]:=64;
  A[4]:=31;
  A[5]:=201;
  A[6]:=151;
  A[7]:=458;
  A[8]:=12;
  A[9]:=9;
  SeekSum(201+129+31, A, X);
  if Length(X)=0
    then ShowMessage('Нет решения')
    else
      begin
        S:='Список индексов -> '+IntToStr(X[Low(X)]);
        for I := 1 to Length(X) - 1 do S:=S+', '+IntToStr(X[I]);
        ShowMessage(S);
      end;
end;
 
 
procedure TForm1.SeekSum(const SumForSeek: Integer; const A: TIntArray; var X: TIntArray);
var
  I, J: Integer;
  B   : TIntArray;
begin
  for I := 0 to Length(A) - 1 do
    for J := 0 to Length(A) - 1 do
      if (I<>J) and (A[I]+A[J]=SumForSeek) then
        begin
          SetLength(X, Length(X)+2);
          X[High(X)-1]:=I;
          X[High(X)]:=J;
          exit;
        end;
  SetLength(B, Length(A));
  for I := 0 to Length(A) - 1 do B[I]:=A[I];
  for I := 0 to Length(B) - 1 do
    begin
      if A[I]=0 then continue;
      B[I]:=0;
      SeekSum(SumForSeek-A[I], B, X);
      if Length(X)>0 then
        begin
          SetLength(X, Length(X)+1);
          X[High(X)]:=I;
          exit;
        end;
      B[I]:=A[I];
    end;
end;