Дерево двоичного поиска представлено многоуровневым списком вида (x1 (x2 (...) (...)) (x3 (...) (...))). Реализовать функцию добавления новогозначения в дерево.

Program V20;
type
mas1 = array[1..10]of string[10];
mas2 = array[1..10]of real;
var
H :mas1;
SS,C :mas2;
Procedure Vvod(var H1:mas1;var SS1,C1:mas2);
var
F:text;
i:integer;
begin
assign(F,'V20_N7.txt');
reset(F);
for i:=1 to 10 do
readln(F,H1[i],SS1[i],C1[i]);
close(F);
end;
Function Sred(SS1:mas2):real;
var
S:real;
i:integer;
begin
S:=0;
for i:=1 to 10 do
S:=S+SS1[i];
S:=S/10;
Sred:=S;
end;
Procedure Vivod1(H1:mas1;var SS1,C1:mas2;S:real);
var i:integer;
begin
writeln('€§¤Ґ«Ёп б ᥡҐбв®Ё¬®бвмо ­Ё¦Ґ б।­Ґ© (',S:0:2,'):');
writeln('ЪДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДВДДДДДД
ї');
writeln('і ˜Ёда €§¤Ґ«Ёп і ‘ҐЎҐбв®Ё¬®бвм і –Ґ­  і');
writeln('ГДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДЕДДДДДД
ґ');
for i:=1 to 10 do
if SS1[i]<S then
writeln('і',H1[i]:14,'і',SS1[i]:15:2,'і',C1[i]:6:0,'і');
writeln('АДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДБДДДДДД
Щ');
readln;
end;
Procedure Vivod2(H1:mas1;SS1,C1:mas2);
var i:integer;
begin
writeln('€§¤Ґ«Ёп б ᥡҐбв®Ё¬®бвмо ­Ё¦Ґ жҐ­л ­  20%:');
writeln('ЪДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДВДДДДДД
ї');
writeln('і ˜Ёда €§¤Ґ«Ёп і ‘ҐЎҐбв®Ё¬®бвм і –Ґ­  і');
writeln('ГДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДЕДДДДДД
ґ');
for i:=1 to 10 do
if (C1[i]*0.8)=SS1[i] then
writeln('і',H1[i]:14,'і',SS1[i]:15:2,'і',C1[i]:6:0,'і');
writeln('АДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДБДДДДДД
Щ');
readln;
end;
BEGIN
Vvod(H,SS,C);
Vivod1(H,SS,C,Sred(SS));
Vivod2(H,SS,C);
END.