Доброго времени суток. 
Есть необходимость сравнить содержимое двух деревьев на совпадение ключей их звеньев (содержимое ключей задается случайным образом) 

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

 Идентифицировать ошибку не могу так, как консоль попросту вылетает, где то в строках (по разному)

   

Думаю что причина в неправильной работе с памятью, но могу ошибаться. 

Сама функция TreeSearch, вызывается из процедуры Printtree_Left ниже приведён кусок кода, отвечающий за поиск и сравнение :



Буду благодарен за помощь или за ссылки на материалы по сравнению бинарных деревьев поиска  ( Гугл ничего толкового не выдал )

так с одним разобрался 
пропустил  else  в строке 

If (tree2^.KEY = key) Then

так, иду дальше,
 теперь нужно чтоб он выводил найденные ключи 

Ничего не понимаю, 
строка    if TreeSearch( tree2, tree1^.KEY) = true then
проверяет возвращает ли функция TreeSearch истинну или ложь т.е совпадает ли значение текущего ключа в дереве 1 с ключами дерева 2, проверка проходит нормально (при совпадении присваивается истинна) но почему- то строки

не выводит ничего ....:confused:  

Всё , проблема решена, тема закрыта .