[street85]

Добрый день!
Помогите решить задачу с полным перебором всех значений, в массиве типа:

Код:

type
recData = record
  number: integer;
  numberId: integer;
  countId: integer;
end;
var
a: a: array of recData;

где number это значение
numberId начало группы в массиве
countId количество элементов в группе.

пример:
number, numberId, countId
данные:

Код:

6, 0, 1
3, 1, 2
2, 1, 2
4, 3, 3
1, 3, 3
5, 3, 3

в итоге получается 3-и группы:

Код:

(1)
6, 0, 1

(2)
3, 1, 2
2, 1, 2

(3)
4, 3, 3
1, 3, 3
5, 3, 3

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

Код:

6, 6, 6, 6..............6, 6..............

3, 3, 3, 3..............2, 2..............
2, 2, 2, 2..............3, 3..............

4, 4, 5, 5..............4, 4..............
1, 5, 1, 4..............1, 5..............
5, 1, 4, 1..............5, 1..............