Программа

PROCEDURE DisposerTree(var L:TypeTurn); { Процедура удаления дерева }
  Begin
    if L<>nil then begin   { Если переменная существует, то }
                     { удаление поддеревьев: }
                     DisposerTree(L^.R);
                     DisposerTree(L^.L);
                     Dispose(L); { удаление переменной }
                     L:=nil { преопределение ссылки }
                   end
  End;