Добавление сортировки

//Uses Crt;
type
  TPElem = ^TElem;
  TElem = record
    Data : string;
      Left,Right: TPElem;
  end; 
  
var
  T,S : TPElem;
  i,k:byte;
  N:string;
  
procedure AddToTree( var T: TPElem; N:string); {ВВОД}
begin
  if T = nil then begin
    New(T);
    T^.Data := N;
     T^.Left := nil;
     T^.Right := nil;
   Exit; end; 
  if N < T^.Data then
     AddToTree(T^.Left, N)
  else 
     AddToTree(T^.Right, N);
end; 
// //
function Search(T:TPElem; N:string):TPElem; {ПОИСК}
var
P:TPElem;  
begin
  if T=nil then  
     begin
       Search:=nil;  
       exit; 
     end;
  if N=T^.Data then 
    P:=T 
     else 
       if N < T^.Data then
          P:=Search(T^.Left,N) 
       else     {иначе }
         P:=Search(T^.Right,N); 
  Search:=P;
end;
// //
procedure Lkp(T:TPElem);  {ВЫВОД}
begin
  if T=nil then 
   exit;    
  Lkp(T^.Left);  
  write('  ',T^.Data);
  Lkp(T^.Right);  
end;
// //
 begin
    while true do
    begin
        writeLn('Выберите действие');
        writeLn('1 - Добавление');
        writeLn('2 - Поиск'); 
        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);
                end; 
             end;
         '2': begin      {ПОИСК}
               writeln('Имя для поиска');
               readln(N);
               S:=Search(T,N);
                  if S <> nil then
                    writeln('Найден')
                  else writeln('Такого элемента нет!');
              end;
    '5' :begin         {ВЫВОД}
      //  ClrScr;
    Write('Список: ');
    if T = nil then
    writeln('пуст... ')
    else begin
        Lkp(T);
        writeln;
       end; end;
        '6' : begin
              T:=nil;
     //         ClrScr;
              writeln('Список очищен... ');
              end;
          '7' : exit
        end;  
    end;
end.

type
  Node<T> = class
    data: T;
    left,right: Node<T>;
    
    constructor(data: T; left, right: Node<T>);
    begin
      self.data := data;
      self.left := left;
      self.right := right;
    end;
    
    function GetDepth: integer :=
    Max(
      left=nil?0:left.GetDepth,
      right=nil?0:right.GetDepth
    )+1;
    
  end;
 
function GN<T>(data: T; left: Node<T> := nil; right: Node<T> := nil) :=
new Node<T>(data, left, right);
 
begin
  var root := GN(
    1,
    GN(2),
    GN(
      3,
      GN(4),
      GN(5)
    )
  );
  root.GetDepth.Println;
end.

function f1 := Max(1,2);
function f2: real := Max(1,2);
 
begin end.

function f1(i: integer) := f1(i+1);
//Ошибка: Тип возвращаемого значения функции f1 не определен и не может быть выведен в данный момент. Укажите тип явно.
 
begin end.

Left=nil?0:Left.GetDepth,

  TPtree = ^Ttree;
  Ttree = Record
  Dat : string;
  Left, Right : TPtree;

T^.Left=nil?0:T^.Left.GetDepth,

 TPtree = ^Ttree;
  Ttree = Record
  Dat : string;
  Left, Right : TPtree;
function GetDepth: integer := Max(Left=nil?0:Left.GetDepth,
      Right=nil?0:Right.GetDepth)+1;
end;

function GN(dat: TPtree; Left: TPtree := nil; Right: TPtree := nil) :=
  new TPtree(dat, Left, Right);

function GetDepth: integer := Max(Left=nil?0:Left^.GetDepth,
      Right=nil?0:Right^.GetDepth)+1;

function GetDepth: integer := Max(Left=nil?0:Left^.GetDepth,
      Right=nil?0:Right^.GetDepth)+1;

function Depth(T:TPtree) : Integer;
var L, R : Integer;
begin
   if T=nil then Depth:=0
   else
   begin
      L := Depth(T^.Left); R := Depth(T^.Right);
      if L > R then Depth := L + 1 else Depth := R + 1;
   end;
end;

var
  a := readinteger;
 
function kvadrat(var b: integer): integer;
begin
  result := b * b;
end;
 
begin
  a := kvadrat(a).println;
end.

var
  a := readinteger;
 
function kvadrat(var b: integer): integer;
begin
  result := b * b;
end;
 
begin
  a := kvadrat(a);
  writeln(a);
end.

var
  a: integer;
 
function kvadrat(b: integer): integer;
begin
  result := b * b;
end;
 
begin
  readln(a);
  a := kvadrat(a);
  writeln(a);
end.

function Depth(T:TPtree) : Integer;
var L, R, V : Integer;
begin
   if T=nil then Depth:=0
   else
   begin
      L := Depth(T^.Left); R := Depth(T^.Right);
      if L > R then Depth := L + 1 else Depth := R + 1;
   end;
   V:=Depth(T);
   writeln(V);
end;