Объясните код. Если кто может

USES crt;
 
const
  MAX_SIZE = 8;
  MIN_VALUE = -3600; { -5e4; }
  ds : array [1..Max_Size, 1..Max_Size] of integer = ((0,19,0,0,0,0,0,0),
                                                  (19,0,12,13,0,0,0,0),
                                                  (0,12,0,0,0,11,0,17),
                                                  (0,13,0,0,0,0,0,0),
                                                  (0,0,0,0,0,0,0,10),
                                                  (0,0,11,0,0,0,0,0),
                                                  (0,0,0,0,0,0,0,8),
                                                  (0,0,17,0,10,0,8,0));
 
type
  edge = record
    num, weight: integer;
  end;
  vertex = record
    left, right: edge;
  end;
 
Massiv = array[1..Max_Size] of integer;
 
var
  Mas: Massiv;
  b:boolean;
  n, i,j, jk, totalEdges, q: integer;
  adjMatrix: array [1 .. MAX_SIZE, 1 .. MAX_SIZE] of integer; { ьрЄЁшЎр ёьхцэюёЄш }
  adj: array [1 .. MAX_SIZE ] of vertex; { фтюшўэюх фхЁхтю }
  edgesAmount: array [1 .. MAX_SIZE ] of integer;
  mem: array [1 .. MAX_SIZE , 1 .. MAX_SIZE ] of integer;
 
procedure bdf(num: integer);
var
  isLeft: boolean;
  i: integer;
begin
  isLeft := true;
  for i := 1 to n  do
  begin
    if (adjMatrix[num][i] <> 0) then
    begin
      if (isLeft) then
      begin
        adj[num].left.num := i;
        adj[num].left.weight := adjMatrix[num, i];
      end
      else
      begin
        adj[num].right.num := i;
        adj[num].right.weight := adjMatrix[num, i];
      end;
      isLeft := false;
      adjMatrix[num][i] := 0;
      adjMatrix[i][num] := 0;
 
      bdf(i);
 
      edgesAmount[num] := edgesAmount[num] + edgesAmount[i] + 1;
    end;
  end; { FOR }
end; { Procedure }
 
procedure input;
var
  p,t, s, w: integer;
 
begin
 Writeln('Введите общее количество узлов дереве:');
  read(n);
  If (N> 100) or (N<1) then
    begin
     Writeln('Введенно не допустимео значение N');
         b:=false;
     exit;
    end;
 Writeln('Введите количествоузлов которые надо оставить:');
  read(totalEdges);
  If (totalEdges> N) or (totalEdges<1) then
    begin
     Writeln('Введенно не допустимео значение M');
         b:=false;
     exit;
    end;
 Writeln('--------------------------------------');
 Writeln('Введите:');
 Writeln('1 : использовать матрицу константу');
 Writeln('2 : использовать клавиатуру для ввода элементов матрицы');
  Readln(p);
 
 case p of
  2:
       begin
        Writeln('Введите значение элементов матрицы смежности с размерностью ',n,'x',n);
          for i := 1 to n do
            begin
             read(t);
             read(s);
             read(w);
             adjMatrix[t, s] := w;
             adjMatrix[s, t] := w;
            end;
       end;
 
  1:
       begin
         For i:=1 to n do
          For jk:=1 to n do
            adjMatrix[i,jk]:=ds[i,jk];
       end;
    end;
 
  bdf(1);
end;
 
function max(a, b: integer): integer;
begin
  if (a > b) then
    max := a
  else
    max := b;
end;
 
function GeneRal_Function(num, edges: integer; var Mas:Massiv): integer;
var
  left, right: edge;
  res, rightEdges, leftEdges, leftValue, rightValue, cur: integer;
begin
 
  left := adj[num].left;
  right := adj[num].right;
 
  if (mem[num, edges] <> 0) then
        res := mem[num, edges]
  else
   if (edges = 0) then
    res := 0
  else
   if (edges > edgesAmount[num]) then
    begin {dec(q);   }
        res := MIN_VALUE end
  else
   if (edges = 1) then
        res := max(left.weight, right.weight)
  else
   begin
    res := 0;
  for i := 0 to edges do
  begin
         leftEdges := i;
         rightEdges := edges - i;
 
         leftValue := 0;
         rightValue := 0;
    if (leftEdges <> 0) then
      leftValue := left.weight + GeneRal_Function(left.num, leftEdges-1,mas);
    if (rightEdges <> 0) then
      rightValue := right.weight + GeneRal_Function(right.num, rightEdges-1 ,mas);
    cur := leftValue + rightValue;
    res := max(res, cur);
  end;
  mem[num][edges] := res;
 
 
 end;
   GeneRal_Function:=res;
  
 
 
end;
 
procedure solve;
var
  res: integer;
begin
  res := GeneRal_Function(1, totalEdges-1,Mas);
 
  write('Суммарная масса оставшихся узлов = ',res);
end;
 
BEGIN
b:=true;
ClrScr;
 q:=1;
  input;
  if not(b) then exit;
  solve;
  Writeln;
  
   Readln;
END.