Нельзя преобразовать тип ^TElem к integer

uses crt;
type
PNode=^Node;  {Указатель на узел}
 Node=record  {Тип запись в котором будет храниться информация}
   data:integer;
   left,right:PNode; {Ссылки на левого и правого сыновей}
end;
 
var
  Tree,p1:PNode; {Tree адрес корня дерева, p1-вспомогательная переменная}
  n,x,i:integer;
  ch:char; {для работы менюшки}
 
{Процедура добавления элемента }
procedure AddToTree (var Tree:PNode;x:integer); {Входные параметры - адрес корня дерева и добавл элемент }
begin
 if Tree=nil then  {Если дерево пустое то создаём его корень}
   begin
     New(Tree);   {Выделяем память }
     Tree^.data:=x;     {Добавляем данные }
     Tree^.left:=nil;     {Зануляем указатели на левого }
     Tree^.right:=nil;  {и правого сыновей }
      exit;
   end;
 if x < Tree^.data then   {Доб к левому или правому поддереву это завсит от вводимого элемента}
     AddToTree(Tree^.left,x)  {если меньше корня то в левое поддерево }
  else
    AddToTree(Tree^.right,x);  {если больше то в правое}
end;

Uses Crt;
type
  TPElem = ^TElem;
  TElem = record
  Left,Right: TPElem;
    Name : string;
    Age : byte;
    TNext : TPElem;
  end; 
  
var
  PList, T, Tree : TPElem;
  i,A,k:byte;
  N:string;
  
procedure AddToTree( var T: TPElem; Name:string );  
begin
  if Tree = nil then begin
    New(T);
    Tree := T;
    AddToTree(T, N);
     AddToTree(T, A);
     T^.Left := nil;
     T^.Right := nil;
  Exit; end;
   New(T^.TNext);
   T := T^.TNext;
    AddToTree(T^.Name, N);
  if A < T^.Age then
       AddToTree(T^.Left, A)
  else AddToTree(T^.Right, A);
end; 
// //
 begin
    while true do
    begin
        writeLn('Выберите действие');
        writeLn('1 - Добавление');
        writeLn('5 - Вывод');
        writeLn('6 - Очистка');
        writeLn('7 - Exit');
       var ans := ReadLnString('Ваш выбор:').Trim;
      if ans.Length > 0 then
        case ans[1] of
            '1' :
             begin
               Write('Задайте количество сотрудников: ');
               Readln(k);
              for var i := 1 to k do
                begin
                 Write('Введите имя: ');
                 ReadLn(N);
                 AddToTree(T^.Name, N);
                 Write('Введите возраст: ');
                 ReadLn(A);
                 AddToTree(T^.Age, A);
                end; 
             end;
    '5' :begin
        ClrScr;
    Write('Список: ');
    T := Tree;
    if T = nil then
    writeln('пуст... ');
    while T <> nil do
    begin
      Write(T^.Name, ' ');
      Write(T^.Age, ' ');      
      T := T^.TNext;
    end; 
    end;
          '6' : begin
          Tree:=nil;
              ClrScr;
              writeln('Список очищен... ');
              end;
          '7' : exit
        end;  
    end;
end.

Uses Crt;
type
  TPElem = ^TElem;
  TElem = record
  Left,Right: TPElem;
    Name,Age : string;
    TNext : TPElem;
  end; 
  
var
  PList, T, Tree : TPElem;
  i,k:byte;
  N,A:string;
  
procedure AddToTree( var T: TPElem; Name:string); {ВВОД}
begin
  if Tree = nil then begin
    New(T);
    Tree := T;
    T^.Name := N;
    T^.Age := A;
     T^.Left := nil;
     T^.Right := nil;
   end; Exit;
   New(T^.TNext);
   T := T^.TNext;
    T^.Name := N;
  if A < T^.Age then
       AddToTree(T^.Left, A)
  else AddToTree(T^.Right, A);
end; 
// //
procedure Lkp(T:TPElem);  {ВЫВОД}
begin
  Write(T^.Name);
  Lkp(T^.left);  
  Writeln('  ',T^.Age);
  Lkp(T^.right);  
end;
// //
 begin
    while true do
    begin
        writeLn('Выберите действие');
        writeLn('1 - Добавление');
        writeLn('5 - Вывод');
        writeLn('6 - Очистка');
        writeLn('7 - Exit');
       var ans := ReadLnString('Ваш выбор:').Trim;
      if ans.Length > 0 then
        case ans[1] of
            '1' :          {ВВОД}
             begin
              ClrScr;
               Write('Задайте количество сотрудников: ');
               Readln(k);
              for i := 1 to k do
                begin
                 Write('Введите имя: ');
                 Readln(N);
                 AddToTree(T, N);
                 Write('Введите возраст: ');
                 Readln(A);
                 AddToTree(T, A);
                end; 
             end;
    '5' :begin         {ВЫВОД}
        ClrScr;
    Write('Список: ');
    T := Tree;
    if T = nil then
    writeln('пуст... ')
    else
      Write(T^.Name, ' ');
      Write(T^.Age, ' ');
     T := T^.TNext;
    while T <> nil do
        Lkp(Tree);
       end;
        '6' : begin
          Tree:=nil;
              ClrScr;
              writeln('Список очищен... ');
              end;
          '7' : exit
        end;  
    end;
end.

//Uses Crt;
type
  TPElem = ^TElem;
  TElem = record
  Left,Right: TPElem;
    Name,Age : string;
    TNext : TPElem;
  end; 
  
var
  PList, T, Tree : TPElem;
  i,k:byte;
  N,A:string;
  
procedure AddToTree( var T: TPElem; Name:string); {ВВОД}
begin
  if Tree = nil then begin
    New(T);
    Tree := T;
    T^.Name := N;
    T^.Age:=A;
     T^.Left := nil;
     T^.Right := nil;
   end; Exit;
   Tree := T;
   New(T^.TNext);
   T := T^.TNext;
    T^.Name := N;
  if A < T^.Age then
       AddToTree(T^.Left, A)
  else AddToTree(T^.Right, A);
end; 
// //
procedure Lkp(T:TPElem);  {ВЫВОД}
begin
  Write(T^.Name);
  Lkp(T^.left);  
  Writeln('  ',T^.Age);
  Lkp(T^.right);  
end;
// //
 begin
    while true do
    begin
        writeLn('Выберите действие');
        writeLn('1 - Добавление');
        writeLn('5 - Вывод');
        writeLn('6 - Очистка');
        writeLn('7 - Exit');
       var ans := ReadLnString('Ваш выбор:').Trim;
      if ans.Length > 0 then
        case ans[1] of
            '1' :          {ВВОД}
             begin
             // ClrScr;
               Write('Задайте количество сотрудников: ');
               Readln(k);
              for i := 1 to k do
                begin
                 Write('Введите имя: ');
                 Readln(N);
                 Write('Введите возраст: ');
                 Readln(A);
                 AddToTree(Tree,A);
                end; 
             end;
    '5' :begin         {ВЫВОД}
      //  ClrScr;
    Write('Список: ');
    T := Tree;
    if T = nil then
    writeln('пуст... ')
    else
      Write(T^.Name, ' ');
      Write(T^.Age, ' ');
     T := T^.TNext;
    while T <> nil do
        Lkp(Tree);
       end;
        '6' : begin
          Tree:=nil;
     //         ClrScr;
              writeln('Список очищен... ');
              end;
          '7' : exit
        end;  
    end;
end.

...
function ArrNToString(a: System.Array; indexes: array of integer; i: integer): string; forward;
 
function StructuredObjectToString(o: Object; n: integer := 0): string;
const
  nmax = 100;
  nmax1 = 30;
begin
  if o = nil then
    Result := 'nil' 
  else if o is System.Reflection.Pointer then
    Result := PointerToString(System.Reflection.Pointer.Unbox(o))
  else if (o.GetType = typeof(real)) or (o.GetType = typeof(decimal)) or (o.GetType = typeof(single)) then
    Result := FormatFloatNumber(o.ToString)
  else if (o.GetType = typeof(Complex)) then 
  begin
    var c := Complex(o);
    Result := '(' + StructuredObjectToString(c.Real) + ',' + StructuredObjectToString(c.Imaginary) + ')';
  end
  else if (o.GetType.IsPrimitive) or (o.GetType = typeof(string)) then
    Result := o.ToString
  else if o is System.Array then
  begin
    var a := o as System.Array;  
    Result := ArrNToString(a, new integer[a.Rank], 0); 
  end
  else if o is System.Collections.IEnumerable then
  begin
    var sb := new StringBuilder();
    var g := (o as System.Collections.IEnumerable).GetEnumerator();
    
    var isdictorset := o.GetType.Name.Equals('Dictionary`2') or o.GetType.Name.Equals('SortedDictionary`2') or (o.GetType = typeof(TypedSet)) or o.GetType.Name.Equals('HashSet`1') or o.GetType.Name.Equals('SortedSet`1');
    if isdictorset then
      sb.Append('{')
    else sb.Append('[');
    if g.MoveNext() then
      sb.Append(StructuredObjectToString(g.Current, n + 1));
    var cnt := 1;  
    while g.MoveNext() and (cnt < nmax) do 
    begin
      sb.Append(',');
      sb.Append(StructuredObjectToString(g.Current, n + 1));
      cnt += 1;
    end;
    if cnt >= nmax then 
      sb.Append(',...');
    
    if isdictorset then
      sb.Append('}')
    else sb.Append(']');
    Result := sb.ToString;
  end
  else if o.GetType.GetField('NullBasedArray') <> nil then
  begin
    var f := o.GetType.GetField('NullBasedArray');
    Result := StructuredObjectToString(f.GetValue(o));
  end
  else
  begin
    var q := RedefinedToString(o);
    var gg := o.GetType.FullName.StartsWith('System.Tuple');
    var gg1 := o.GetType.Name.StartsWith('KeyValuePair');
    if (q <> nil) and q.IsVirtual and not gg and not gg1 then
      Result := o.ToString
    else 
    begin
      var t := o.GetType;
      var sb := new System.Text.StringBuilder();
      sb.Append('(');
      if n > nmax1 then
        sb.Append('....')
      else 
        while t <> typeof(object) do
        begin
          var ff := t.GetFields(System.Reflection.BindingFlags.Public or System.Reflection.BindingFlags.Instance or System.Reflection.BindingFlags.DeclaredOnly);
          var pp := t.GetProperties(System.Reflection.BindingFlags.Public or System.Reflection.BindingFlags.Instance or System.Reflection.BindingFlags.DeclaredOnly);
          
          for var i := ff.Length - 1 downto 0 do
            sb.Insert(1, StructuredObjectToString(ff[i].GetValue(o), n + 1) + ',');
          
          for var i := pp.Length - 1 downto 0 do
            if pp[i].GetIndexParameters.Length = 0 then
              sb.Insert(1, StructuredObjectToString(pp[i].GetValue(o, nil), n + 1) + ',');
          
          t := t.BaseType;
        end; 
      if sb.Length > 1 then 
        sb.Length := sb.Length - 1;
      sb.Append(')');
      Result := sb.ToString;
    end;
  end;
end;
...