Дан массив чисел А(20).Сформировать из элементов массива бинарное дерево поиска

program prg;
type
  TData = real;
  TTree = ^Tree;
  Tree  = record
  Data        : TData;
  Left, Right : TTree;
  end;
  //добавление узла в дерево
procedure AddTree(var aTree : TTree; aData : TData);
begin
  If aTree = nil then begin
    New(aTree);
    aTree^.Data := aData;
    aTree^.Left := nil; aTree^.Right := nil;
  end else if aTree^.Data > aData then AddTree(aTree^.Left,aData)
  else AddTree(aTree^.Right,aData);
end;
  //вывод дерева в инфикс порядке
procedure PrintTr(aTree : TTree);
begin
  if aTree = nil then exit;
  PrintTr(aTree^.Left);
  write(aTree^.Data:7:2);
  PrintTr(aTree^.Right);
end;
  //уровень узла с макс значением
const
n=20;
var
  i : integer;
  a    : TData;
  T    : TTree;
begin
   T := nil;  //инициализация дерева
  for i := 1 to n do begin
    write('Введите 20 элементов массива: '); readln(a);  //значение узла
    AddTree(T,a); //добавление узла с задан значением
  end;
  Writeln('Infix Tree:');  //узлы дерева в инфиксном (лкп) порядке
  PrintTr(T);
  writeln;
  readln;
end.

const
  n = 20;
 
type
  TData = real;
  TTree = ^Tree;
  Tree = record
    Data: TData;
    Left, Right: TTree;
  end;
  
procedure AddTree(var aTree: TTree; aData: TData);
begin
  if aTree = nil then begin
    New(aTree);
    aTree^.Data := aData;
    aTree^.Left := nil; aTree^.Right := nil;
  end else if aTree^.Data > aData then AddTree(aTree^.Left, aData)
  else AddTree(aTree^.Right, aData);
end;
 
procedure PrintTr(aTree: TTree);
begin
  if aTree = nil then exit;
  PrintTr(aTree^.Left);
  write(aTree^.Data:7:2);
  PrintTr(aTree^.Right);
end;
 
var
  i: integer;
  T: TTree;
  a : array [1..n] of TData;
 
begin
  for i := 1 to n do a[i] := Random*200-100;
    
  WriteLn('Random array:'); for i := 1 to n do Write(a[i]:7:2); WriteLn;
 
  T := nil;
  for i := 1 to n do
    AddTree(T, a[i]);
 
  Writeln('Infix Tree:'); PrintTr(T); writeln;
end.