Объяснить программу, которая строит дерево, сортируя числа, введенные пользователем

uses
  Crt;
 
const
  n=8;
  m=100; 
 
type
  Node=record
    ex:Boolean;
    info:Integer; 
    left:Integer; 
    right:Integer; 
  end;
  Tree=array [1..m] of Node;
  Mas=array [1..m] of Integer;
 
var
  BTree:Tree;
  ch:Char;
  menu:array [1..n] of String [100];
  A:Mas;
  punkt,x,y:Integer;
 
 
 
procedure InsertElement (e,k:Integer);
var
  i:Integer;
begin
  if not BTree[1].ex then
    begin
      BTree[1].ex:=true;
      BTree[1].info:=e;
      BTree[1].left:=0;
      BTree[1].right:=0;
    end
  else
    begin
      if e<BTree[k].info then 
        if BTree[k].left=0 then 
          begin
            for i:=2 to m do     
              if BTree[i].ex=false then
                begin
                  BTree[k].left:=i;
                  BTree[i].ex:=true;
                  BTree[i].info:=e;
                  BTree[i].left:=0;
                  BTree[i].right:=0;
                  Exit;
                end;
          end
        else
          InsertElement (e,BTree[k].left) 
    else
      if BTree[k].right=0 then
        begin
          for i:=2 to m do
            if BTree[i].ex=false then
              begin
                BTree[k].right:=i;
                BTree[i].ex:=true;
                BTree[i].info:=e;
                BTree[i].left:=0;
                BTree[i].right:=0;
                Exit;
              end;
        end
      else
        InsertElement (e,BTree[k].right);
    end;
end;
 
procedure WriteElement (a,b,c,d,e:Integer);
begin
  if not (BTree[d].ex) then
    begin
      e:=e-1;
      Exit;
    end;
  if e=5 then
    begin
      e:=e-1;
      Exit;
    end;
  GoToXY (a,b);
  e:=e+1;
  Write (BTree[d].info);
  if (BTree[d].left<>0) then
    WriteElement (a-c,b+2,c div 2,BTree[d].left,e);
  if (BTree[d].right<>0) then
    WriteElement (a+c,b+2,c div 2,BTree[d].right,e);
end;
 
procedure CreateTree (a:Boolean);
var e,i,n:Integer;
    v:Char;
begin
  ClrScr;
  if BTree[1].ex then 
    begin
      WriteLn ('Дерево уже создано!');
      ReadLn;
    end
  else
    begin
      if a then
        begin
          WriteLn ('Дерево ещё не создано. Вы желаете создать его? (Да/Нет) (Введите заглавную букву): ');
          ReadLn (v);
          if not (v in ['Д','д']) then 
            Exit;
        end;
      WriteLn ('Введите количество элементов (не более ',m,') : ');
      ReadLn (n);
      while (n>m) or (n<0) do
        begin
          WriteLn ('Ошибочный ввод! Введите заново количество элементов (не более ',m,') : ');
          ReadLn (n);
        end;
      WriteLn ('Вводите элементы, первый элемент будет корнем дерева: ');
      for i:=1 to n do 
        begin
          ReadLn (e);
          InsertElement (e,1);
        end;
    end;
end;
 
 
procedure DeleteFullTree;
var
  i:Integer;
begin
  ClrScr;
  if not (BTree[1].ex) then 
    CreateTree (true)
  else 
    begin
      for i:=1 to m do
        BTree[i].ex:=false;
      WriteLn ('Дерево удалено');
      ReadLn;
    end;
end;
 
 
procedure ShowTree;
var
  d,i:Integer;
  
begin
 
  
  d:=1;
  if BTree[1].ex then
    begin
      WriteLn ('Возможно, вы видите лишь часть дерева. Нажмите стрелочку влево, чтобы увидеть левое поддерево данного корня, стрелочку вправо, чтобы увидеть правое поддерево данного корня, стрелочку вверх, чтобы увидеть поддерево родителя данного корня, Enter, чтобы выйти.');
      WriteElement (80,25,20,d,0);
      repeat
        ch:=ReadKey;
        ClrScr;
    
       
          WriteElement (80,25,20,d,0);
      
          begin
            for i:=1 to m do
              if BTree[i].ex then
                if (BTree[i].left=d) or (BTree[i].right=d) then
                  begin
                    ClrScr;
                   
                    d:=i;
                    WriteElement (80,25,20,d,0);
                    Break;
                  end
                else
                  WriteElement (80,25,20,d,0);
          end;
       
          begin
            if BTree[d].left<>0 then
              d:=BTree[d].left;
            ClrScr;
         
            WriteElement (80,25,28,d,0);
          end;
        if ch=#77 then
          begin
            if BTree[d].right<>0 then
              d:=BTree[d].right;
            ClrScr;
       
            WriteElement (80,25,28,d,0);
          end;
      until ch=#13;
    end
  else 
    CreateTree (true);
end;
 
 
begin
 
CreateTree(false); 
ShowTree; 
Writeln ('Удаляем дерево'); 
DeleteFullTree; 
end.