масив Опции

[Helm]

Всем привет! )

И так вот такая у меня трабла:
Есть числа (от 1 до 10), нужно заполнить масив таким образом чтобы он виглядал вот так:

----------------------
№ | | | | | | |
----------------------
1 | 1| | | | | |
2 | 1|2| | | | |
3 | 1|3| | | | |
4 | 1|4| | | | |
5 | 1|5| | | | |
6 | 1|2|3| | | |
7 | 1|2|4| | | |
8 | 1|2|5| | | |
9 | 1|3|4| | | |
10 | 1|3|5| | | |
11 | 1|4|5| | | |
12 | 1|2|3|4| | |
13 | 1|2|3|5| | |
14 | 1|2|4|5| | |
15 | 1|3|4|5| | |
16 | 1|2|3|4|5| |
... |..|..|..|..|..|..|
---------------------

то есть идет выборка (хз как её назвать)
сначала по два елемента ([1,2], [1,3], [1,4], [1,5])
потом по три ([1,2,3], [1,2,4], [1,2,5], [1,3,4], [1,3,5], [1,4,5])
потом по 4 ...
потом по 5 ...
и так до 10

p.s. (ето мне нужно для реализации алгоритма для решения задачи о максимальном потоке методом сечения)

[Helm]

procedure Gen_ver_R;
var x,i,j,k,y,count :integer;
begin
// 1-2
  masGeneral[1,1] := 1;  // вершина 1   , ( masGeneral[1..20000,1..10]  - главная матрица ) 
  count := 2;
  x:=2;
    for i:=x to 5 do
      begin
        masGeneral[count,1] := 1;
        masGeneral[count,2] := i;
        Inc(count);   //каунт для рядків
//        SetLength(masGeneral, count, 10);
      end;

//1-3
  x:=3;
  for i:=2 to 4 do
    begin
      for j:=x to 5 do
        begin
          masGeneral[count,1] := 1;
          masGeneral[count,2] := i;
          masGeneral[count,3] := j;
          Inc(count);
        end;
      Inc(x);
    end;

//1-4
  x:=3;
  y:=4;
  for i:=2 to 3 do
    begin
      for j:=x to 4 do
        begin
          if y = 6 then Dec(y);      // для відображ. 1.3.4.5 так як у стає = 6 то ми dec(y)
               for k:=y to 5 do
                  begin
                   masGeneral[count,1] := 1;
                   masGeneral[count,2] := i;
                   masGeneral[count,3] := j;
                   masGeneral[count,4] := k;
                   Inc(count);
                  end;
              Inc(y);
        end;
      Inc(x);
    end;
 end;

Результат:

№ | | | | | | |
----------------------
1 | 1| | | | | |
2 | 1|2| | | | |
3 | 1|3| | | | |
4 | 1|4| | | | |
5 | 1|5| | | | |
6 | 1|2|3| | | |
7 | 1|2|4| | | |
8 | 1|2|5| | | |
9 | 1|3|4| | | |
10 | 1|3|5| | | |
11 | 1|4|5| | | |
12 | 1|2|3|4| | |
13 | 1|2|3|5| | |
14 | 1|2|4|5| | |
15 | 1|3|4|5| | |