Построить бинарное дерево из целочисленных элементов. Найти наименьший элемент дерева

type
  pType = class
    V : Integer;
    L, R : pType;
    
    constructor (value : Integer);
    begin
      V := value;
      L := nil;
      R := nil;
    end;
    
    procedure AddTree(value : Integer);
    begin
      if value < V then
        begin
          if L = nil then
            L := New pType(value)
          else
            L.AddTree(value);
        end
      else
        begin
          if R = nil then
            R := New pType(value)
          else
            R.AddTree(value);
        end
    end;
    
    procedure Bypass;
    begin
      Print(V);
      if L <> nil then L.Bypass;
      if R <> nil then R.Bypass;
    end;
    
    function Min : Integer;
    begin
      if L <> nil then
        Result := L.Min
      else
        Result := V;
    end;
  end;
  
  begin
    var V := ReadLnInteger('Значение корня дерева root =');
    var Root := New pType(V);
    var N := ReadLnInteger('Сколько значений ещё будем добавлять?  n =');
    for var i := 1 to N do
      Root.AddTree(ReadLnInteger(i.ToString + '-е значение ='));
    
    WriteLn('Построено бинарное дерево следующих чисел:'); Root.Bypass; WriteLn;
    
    WriteLn('Минимальный элемент дерева = ', Root.Min);
  end.

    function Max : Integer;
    begin
      if R <> nil then
        Result := R.Min
      else
        Result := V;
    end;

Result := R.Max

    function Max : Integer;
    begin
      if R <> nil then
        Result := R.Max
      else
        Result := V;
    end;