[kaizer131]

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

Код:

if TreeSearch( tree2, tree1^.KEY) = true then
       Writeln (tree1^.Key, ' Found');

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