Процедура на работу с матрицами, бинарными деревьями

Нужна небольшая процедура на Delphi

работа с бинарными деревьями, матрицами

(Реализация поиска неисправного элемента в схеме)

Пример во вложении

Подробности мылом.