Developing.ru

условие:
//Известен набор костей домино для каждого из двух игроков.
//Необходимо проверить существует ли последовательность ходов, приводящая к
//"рыбе"."РЫБА" - ситуация, в которой у двух игроков есть кости, но ни один из
//них не может сделать ход.

типы данных:
TBone=record //кости домино
left,right:string; //левая и правая половинка костяшки
end;
TIndex=array of integer; //массив индексов
TDomino=array of TBone; //массив костей

сам код во вложенном файле.
задача на комбинаторные алгоритмы.как я поняла,все решение ложится на генерацию перестановок индексов костей домино(см.код).остается только проверить перестановку.вот в проверке,как мне кажется,и ошибка.но я не могу ее найти. помогите,пожалуйста!

Код не читал, но, насколько я помню, в домино можно класть костяшку любой стороной. Так что я бы описал TBone так:
tBone=record
side1, side2: byte; end;

задача сдана.тема может быть удалена.