Ausbalancierte Bäume Sortieren mit AVL-Bäumen

Listing 2: Demoprogramm
program AvlDemo;
{**********************************************}
{ Written in August '90 by P. Leibfried }
{ (C) 1990 by Philipp Leibfried }
{**********************************************}
uses Crt, AvlTrees;
{$V-}
type NamStr = String[30];
AnyStr = String[80];
AdrRec = record
Name, Vorname, Stra, Nr, PLZ, Ort : NamStr;
end;
var AdrFile : file of AdrRec; { Adressdatei }
AVLRoot : AvlTree; { Baum, Hilfsknoten }
FSize : Integer; { Anzahl der Adressen }
Ch1 : char;
{* ════════════════════════════════════════════*}
function FlExist(FileName: AnyStr): boolean;
var Fl : File;
begin
Assign(Fl, FileName);
FlExist:=false;
{$I-}
Reset(Fl);
if IOResult0 then
begin
Close(Fl);
if IOResult0 then
begin
end;
Exit;
end;
FlExist:=true;
Close(Fl);
if IOResult0 then
begin
end;
{$I+}
end;
{* ════════════════════════════════════════════*}
procedure FileInfo;
begin
GotoXY(5, 12);
Write('Anzahl der Adressen:', FSize:5, ' ');
Write('Hoehe des Baumes:', Height(AVLRoot):5);
end;
{* ════════════════════════════════════════════*}
procedure DispAdress(Adress: AdrRec);
begin
with Adress do
begin
GotoXY(3, 18);
ClrEol;
Writeln('Name : ', Name);
ClrEol;
Writeln(' Vorname : ', VorName);
ClrEol;
Writeln(' Straße : ', Stra);
Writeln(' Nummer : ', Nr);
ClrEol;
Writeln(' PLZ : ', PLZ);
ClrEol;