Ausbalancierte Bäume Sortieren mit AVL-Bäumen

if BalTree^.BalFact in [Pl2, Min2] then
begin
if BalTree=DelTree then
begin
BalanceTree(BalTree);
DelTree:=BalTree;
end
else
BalanceTree(BalTree);
AllBalanceFactors(DelTree, Dummy);
end;
BalTree:=BalTree^.Last;
end;
end;
{* ════════════════════════════════════════════*}
procedure DelAllTree(Var DelTree : AvlTree);
begin
if DelTreenil then
begin
DelAllTree(DelTree^.Left);
DelAllTree(DelTree^.Right);
FreeMem(DelTree^.Data,DatSize);
FreeMem(DelTree,KeySize+17);
DelTree:=nil;
end;
end;
end.