Курсовая работа: Структури даних для обробки інформації

k:integer;

procedure write_tree(x:BinarTree);

begin

if (x^.left=nil) and (x^.right=nil) then write(x^.data,' ')

else

begin

if x^.left<>nil then write_tree(x^.left);

if x^.right<>nil then write_tree(x^.right);

end;

end;

begin

clrscr;

repeat

write('Фамилия -> ');

readln(name);

if name<>'' then

begin

write('Ключ -> ');

readln(k);

new(b_new);

with b_new^ do

begin

parent:=nil;

left:=nil;right:=nil;

data:=name;

key:=k;

end;

if b=nil then b:=b_new

else