Бинарные деревья, не работает программа Опции

[Moony]

Помогите пожалуйста найти ошибку в программе. Вроде бы что то в удаление дерева, но не пойму что именно


Это текст задачи
Некоторая фирма, совершая экспортные операции, сохраняет всю информацию в файле. Информация включает номер контракта, наименование товара, страну и фирму, импортирующую товар, сведения об общем объеме поставок, дату заключения контракта, дату исполнения контракта в полном объеме, количество товара, поставленного по контракту на данный момент.

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