Запутанная программа

[chipesca]

Помогите, пожалуйста, составить из всего этого программу.

Смысл программы заключается в следующем:
программа перебирает все варианты, 36 элементов, которые могут принимать значения 0,1,2.
Выбрала вариант из 36 элементов и делает следующее:
выполняет процедуры det_B2_B3->det_B3_B1->matrixU->polu4.to4ek(в данной процедуре a1[i],..,a6[i] берутся из файла nach.xls) , далее, если a41[i] <> 0, ищет в файле obr.xls

a41a42a51a52a61a62,

иначе ищет

a11a12a21a22a31a32,

когда находит, выполняет процедуру obr, получает 36 элементов(A1',..,A36'), каждый, из которых состоит, в свою очередь, из 6.
Далее происходит поиск в файле toch.xls, если а41 была отлична от нуля, если же нет, то в toch2.xls, полученных A1',..,A36'.
Когда находит строчку, с каким- то номером совпадающую с A1', ставит в книге, допустим, chain.xls х в столбце с тем же номером, и так до A36', пока не закончатся варианты массива k[j];
после того, как закончились варианты, проверяет лист, куда ставились х, если строки совпадают( то есть, есть уже такая строка с точно такими же расположениями элементов х), удаляет ее со смещением вверх.
Вот, но это ещё не все, к сожалению, должен стоять счетчик, который будет считать, в скольких строках по скольким столбцам(количество) совпадают( сложно для понимания, пример, допустим, в первой строке в столбце a,d,f стоят х, и в n-ой строке на тех же столбцах тоже стоят х, программа куда-нибудь заносит по 3 столбцам +1) и в конце выводит результат.

Вот такая программа, буду очень благодарен за любую помощь.
И выражаю благодарность Serge_Bliznykov за помощь в коде с перебором.
Книги, которые использует в архиве, а процедуры в файле proced.txt, так как сюда не влезло.