Ausbalancierte Bäume Sortieren mit AVL-Bäumen

Inc(RecPos);
end;
end;
FileInfo;
end else
begin
ReWrite(AdrFile);
FSize:=0;
FileInfo;
end;
end;
{* ════════════════════════════════════════════*}
procedure InputAdress;
var InpAdr : AdrRec; { Eingegebene Adresse }
NKey : NamStr; { Schlüssel }
I : Integer;
Inserted : boolean;{ Prüfvariable }
{ für Insert }
begin
GotoXY(3,15);
Write('Bitte neue Adresse eingeben ...');
repeat
{ Adresse von Tastatur einlesen }
with InpAdr do
begin
GotoXY(1, 18);
Write(' Name : ');
Readln(Name);
if Name'' then
begin
Write(' Vorname : ');
Readln(VorName);
Write(' Straße : ');
Readln(Stra);
Write(' Nummer : ');
Readln(Nr);
Write(' PLZ : ');
Readln(Plz);
Write(' Ort : ');
Readln(Ort);
NKey:=Copy(Name, 1, 10);
InsertNew(NKey, FSize, AVLRoot, Inserted);
{ Falls Adresse mit dem selben }
{ Schlüssel noch nicht existiert, }
{ in Baum oder Datei einfügen }
if Inserted then
begin
Seek(AdrFile, FSize);
Write(AdrFile,InpAdr);
Inc(FSize);
end;
FileInfo;
for I:=15 to 23 do
begin
GotoXY(1, I);
ClrEol;
end;
end;
end;
until InpAdr.Name='';
for I:=15 to 23 do
begin
GotoXY(1, I);
ClrEol;