Поиск минимальной глубины бинарного дерева

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ComCtrls;
 
type
 Tpoint = ^Tree;
  Tree = record
    Tdata: integer;
    TLefEl: Tpoint;
    TRightEl: Tpoint;
  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    BtnAddToTree: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BtnShowTree: TButton;
    BtnFindMinDBTree: TButton;
    BtnExit: TButton;
    XPManifest1: TXPManifest;
    TreeView1: TTreeView;
    Label4: TLabel;
    Edit4: TEdit;
    BtnDelElement: TButton;
    procedure BtnAddToTreeClick(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure BtnShowTreeClick(Sender: TObject);
    procedure vyvid(root:Tpoint; item:TTreeNode);
    procedure BtnDelElementClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  root: Tpoint;
  i:integer;
 
implementation
 
{$R *.dfm}
 
procedure AddTreeElement(el: integer; Var Troot:Tpoint); // процедура добавления элемента в дерево
begin
  if Troot = nil then begin
    new(Troot);
    Troot^.Tdata:=el;
    Troot^.TLefEl:=nil;
    Troot^.TRightEl:=nil;
  end
  else begin
    if el <= Troot^.Tdata then AddTreeElement(el,  Troot^.TLefEl);
    if el > Troot^.Tdata then AddTreeElement(el,  Troot^.TRightEl) ;
  end;
end;
 
{Выведем дерево в компонент TreeView}
procedure TForm1.vyvid(root:Tpoint; item:TTreeNode);
var tmpItem:TTreeNode;
begin
   if root<>nil then
    begin
      tmpItem:=Form1.TreeView1.Items.AddChild(item,inttostr(root^.Tdata));
      vyvid(root^.TLefEl, tmpItem);
      vyvid(root^.TRightEl, tmpItem);
    end
end;
 
{Функция поиска по дереву}
function find(root:Tpoint; key:integer; var p,parent:Tpoint) : BOOLEAN;
begin
  p := root;       // Поиск с корня
  while p<>nil do
    begin
      if key = p^.Tdata then   // узел с таким ключом найден.
         begin
           find:=true;
           exit;
         end;
      parent:=p;              //запомним указатель перед спуском.
      if key < p^.Tdata then p:=p^.TLefEl  //спустились вправо
                       else p:=p^.TRightEl;  //спустились влево
    end;
  find:=false;
end;
 
{Спуск по дереву}
  function Descent (p:Tpoint):Tpoint;
  var y: Tpoint;       //узел, который заменяет удаляемый
      prev: Tpoint;     //предок узла у
  begin
    y:=p^.TRightEl;
    if y^.TLefEl = nil
    then y^.TLefEl := P^.TLefEl
     else
       begin
         repeat
           prev := y;
           y:=y^.TLefEl;
         until y^.TLefEl =nil;
       end;
    descent:=y;
  end;
 
{Процедура удаления элемента из дерева}
procedure Del(var root:Tpoint; key:integer);
var p: Tpoint;         //удаляемый узел
    parent:Tpoint;     //предок удаляемого узла
    y:Tpoint;          //узел, который заменяет удаляемый узел
begin
    if not find (root, key, p, parent)
     then
       begin
       ShowMessage('such element does not exist');
       end;
 
    if p^.TLefEl=nil
    then y:=p^.TRightEl
    else if p^.TRightEl = nil
           then y:=p^.TLefEl
           else y:=descent(p);
    if p = root then root:=y
    else
       if key < parent^.Tdata
       then parent^.TLefEl := y
       else parent^.TRightEl := y;
    dispose(p);
  end;
 
procedure TForm1.BtnAddToTreeClick(Sender: TObject);
var h:integer;
begin
{Ограничим возможность введения элементов дерева}
If (Not TryStrToInt(Edit1.Text,h)) Then
Begin
  ShowMessage('Введите элемент дерева - целое число');
  Exit;
End
else
  begin
    h:=StrToInt(Edit1.Text);
    AddTreeElement(h, root);
    Edit1.Text:='';
    i:=i+1;   //количество элементов в дереве
    Edit2.Text:=IntToStr(i);
    Edit1.setfocus;
  end;
end;
 
procedure TForm1.BtnExitClick(Sender: TObject);
begin
  close;
end;
 
procedure TForm1.BtnShowTreeClick(Sender: TObject);
var Item:TTreeNode;
begin
  TreeView1.Items.Clear;
  item:=nil;
  if root = nil then ShowMessage('The Tree is Empty =(')
                else vyvid(root, Item)
end;
 
procedure TForm1.BtnDelElementClick(Sender: TObject);
begin
 If Edit4.Text='' then ShowMessage('Введите элемент, который нужно удалить')
                  else del(root, strtoint(Edit4.text)); //удаляем элемент
end;
 
 
procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.setfocus;
end;

function TreeMinDepth(Root: Tpoint): integer; 
var
  LMax: integer;
procedure NodeLevel(P: Tpoint; L: integer);
begin
  if P = nil then
  begin
    if (LMax = 0) or (L < LMax) then
    LMax := L;
    exit;
  end;
  NodeLevel(P^.Left, L + 1);
  NodeLevel(P^.Right, L + 1);
end;
begin
  LMax := 0;
  NodeLevel(Root, 0);
  Result := LMax;
end;

//Удаление заданного узла p
procedure DeletePoint(Var root,p,parent:Tpoint);
Var
  key:Integer;
    y:Tpoint;          //узел, который заменяет удаляемый узел
begin
  key:=p^.Tdata;
  if p^.TLefEl=nil then
  y:=p^.TRightEl else
  if p^.TRightEl = nil then
  y:=p^.TLefEl else
  begin
    y:=descent(p,parent);
    p^.Tdata:=y^.Tdata;
    DeletePoint(root,y,parent);
    exit;
  end;
 
  if p = root then root:=y else
  if key <= parent^.Tdata then //Вот здесь была ошибка !!!!!!!!!!!!!!!!!!!!!!
  parent^.TLefEl := y else
  parent^.TRightEl := y;
  dispose(p);
end;

Procedure DeleteTree(var T: TPoint);
Begin
  If T <> nil Then
  begin
    DeleteTree(T^.TRightEl);
    DeleteTree(T^.TLefEl);
    Dispose(T);
    T:=nil;
  end;
End;