fp自带AVL tree！

program TAVLTree;
{$mode objfpc}{$H+}
uses
   Classes, SysUtils,AVL_Tree;
var t:TAVLTree;
i,j:integer;
l:TAVLTreeNode;
begin
i:=1;
t:=TAVLTree.Create();
while i<>0 do
   begin
    Read(i);
    j:=i;
    t.Add(Pointer(j));
   end;
while t.Root<>nil do
   begin
    l:=t.FindLowest;
    j:=Integer(l.data);
    WriteLN(j);
    t.Delete(l);
   end;
FreeAndNil(t);
ReadLN;
end.