Разработать класс "Бинарное дерево"

{$mode objfpc}
type
  ptree = ^ttree;
  ttree =
  record
    info : integer;
    l, r : ptree;
  end;
 
 
 
function MakeTree(s : integer; left_tree, right_tree : ptree) : ptree;
begin
  new(result);
  result^.info := s;
  result^.l := left_tree;
  result^.r := right_tree;
end;
 
function CopyTree(root : ptree) : ptree; // вот функция копирования
begin
  if root = nil then result := nil
  else
  begin
    new(result);
    result^.info := root^.info;
    result^.l := CopyTree(root^.l);
    result^.r := CopyTree(root^.r);
  end;
end;
 
procedure Symm(root : ptree; level : integer);
begin
  if root = nil then exit;
  Symm(root^.r, level + 1);
  writeln(root^.info:3*level);
  Symm(root^.l, level + 1);
end;
 
var
  root : ptree;
  t : ptree;
 
begin
 
  // Это будет заданное дерево
  root :=
    MakeTree(20,
             MakeTree(7,
                      MakeTree(4, nil, nil),
                      MakeTree(16, nil,
                               MakeTree(18, nil, nil))),
             MakeTree(38,
                      MakeTree(37, nil, nil),
                      MakeTree(43, nil, nil)));
 
  symm(root, 0); // выводим оригинал
  writeln;
  t := CopyTree(root); // Копируем его в новое дерево
  symm(t, 0); // И сравниваем полученное дерево с оригиналом
  writeln;
 
  readln;
  // не забудь удалить деревья
end.