Ausbalancierte Bäume Sortieren mit AVL-Bäumen

Listing 1: AVL-Unit
unit AVLTrees;
{**********************************************}
{ Written in August '90 by P. Leibfried }
{ (C) 1990 by Philipp Leibfried }
{**********************************************}
{$R+,S+,I+,D+,F-,V-,B-,N-,L+}
{$M 16384,0,655360}
{**********************************************}
interface
{**********************************************}
uses Crt;
const
KeyMax = 256;
DatMax = 1024;
type
AvlTree = ^AvlNode;
Balance = (Min2, Min1, Zero, Pl1, Pl2);
KType = (KByte, KChar, KInteger, KReal, KString);
KeyArray = array [1..KeyMax] of byte;
DatPtr = ^DatArray;
DatArray = array [1..DatMax] of byte;
AvlNode = record
BalFact : Balance;
Left,Right,Last : AvlTree;
Data : DatPtr;
TreeKey : KeyArray;
end;
var
KeySize : Integer;
{ Statusvariablen KeySize und KeyType dürfen }
{ nur einmal gesetzt werden, solange der Baum }
{ nicht wieder gelöscht wird }
KeyType : KType;
DatSize : Integer;
{* ════════════════════════════════════════════*}
function Height(HTree: AVLTree) : Integer;
{ Berechnet Höhe des Baumes HTree }
{* ════════════════════════════════════════════*}
function Lowest(Var LData;
BegTree: AvlTree): AvlTree;
{ Gibt Zeiger auf Knoten mit niedrigstem }
{ Schlüssel im (Unter-)Baum BegTree zurück. }
{ Ist BegTree=NIL, so wird NIL zurückgegeben. }
{ Knotendaten stehen in LData. }
{* ════════════════════════════════════════════*}
function Highest(Var HData;
BegTree: AvlTree): AvlTree;
{ Gibt Zeiger auf den Knoten mit höchstem }
{ Schlüssel im (Unter-)Baum BegTree zurück. }
{ Ist BegTree=NIL, so wird NIL zurückgegeben. }
{ Knotendaten stehen in HData. }
{* ════════════════════════════════════════════*}
function NextNode(Var NData;
BegTree: AvlTree): AvlTree;
{ Gibt Zeiger auf den auf nächsthöheren }
{ BegTree-Schlüssel zurück. Falls nicht }