Разработать программу, которая создает бинарное дерево T, элементами которого являются вещественные числа.

program BinTree;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
{ TODO -oUser -cConsole Main : Insert code here }
    type ref_node=^node;
        node =record
             inf:integer;
             left,rigth:ref_node;
        end;
var
   root:ref_node;
   i:integer;
   res:integer;
   sum:integer;
   
procedure insert_node(var root:ref_node;x:integer);
begin
     if root=nil then
     begin
          new(root);
          root^.inf:=x;
          root^.left:=nil;
          root^.rigth:=nil;
     end
     else if x<root^.inf then insert_node(root^.left,x)
     else insert_node(root^.rigth,x);
end;
 
procedure search(root:ref_node);
begin
     if root<>nil then
     begin
          write(root^.inf,' ');
          search(root^.left);
          search(root^.rigth);
     end;
end;
   
procedure summ(root:ref_node;var sum:integer);
begin
     if root<>nil then
     begin
          sum:=sum+root^.inf;
          summ(root^.left,sum);
          summ(root^.rigth,sum);
     end;
end;
   
begin
     for i:=1 to 20 do
         insert_node(root,i);
     search(root);
     sum:=0;
     summ(root,sum);
     writeln;
     write(sum);
     readln;
     end.