Проверка наличия заданного числа в сформированном бинарном дереве - Free Pascal

{$mode objfpc}
type
  ptree = ^ttree;
  ttree =
  record
    data : integer;
    left, right : ptree;
  end;
 
function MakeTree(value : integer; left_tree, right_tree : ptree) : ptree;
begin
  new(result);
  result^.data := value;
  result^.left := left_tree;
  result^.right := right_tree;
end;
 
function Find(root : ptree; X : Integer) : ptree;
begin
  if root = nil then result := nil
  else
    if X = root^.data then result := root
    else
      if X < root^.data then result := Find(root^.left, X)
      else result := Find(root^.right, X)
end;
 
var
  root : ptree;
 
begin
  // Создаем дерево
  root :=
    MakeTree(20,
             MakeTree(7,
                      MakeTree(4, nil, nil),
                      MakeTree(16, nil, nil)),
             MakeTree(38,
                      MakeTree(37, nil, nil),
                      MakeTree(43, nil, nil)));
 
  // Проверяем, есть ли в нем четверка. Должно выдать "Да"
  if Find(root, 4) <> nil then writeln('Да')
  else writeln('Нет');
 
  // удаление дерева - попробуй сделать самостоятельно
end.