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


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

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

Прекрасно, но неплохо было бы знать, каковы симптомы ошибки (если они есть), а то получается - "ищи то - не знаю, что" ...

Кстати, если бы ты сначала посмотрел вот сюда:
FAQ: Динамические структуры - Бинарные деревья, то увидел бы, что обычно процедуры создания, обработки и удаления бинарных деревьев рекурсивны, то есть я бы делал процедуру Clean вот так:

Procedure Clean(Tek: PTree);
Begin
  If Tek = nil Then Exit;

  Clean(Tek^.Right); { удаление правого поддерева }
  Clean(Tek^.Left); { удаление левого поддерева }
  Dispose(Tek) { удаление корневого узла }
End;