Дерево для алгоритма Хаффмана

[0479]

Доброго времени суток. Помогите пожалуйста с комментариями к приведённому ниже коду построения дерева для алгоритма Хаффмана.
Каким образом в нём идёт построение дерева.Язык Delphi.Интерфейс GUI.

procedure TForm1.CreateTree(FS:DWord); 
var
  n:DWord;
  m1, m2: Byte;
  n1:Cardinal;
  i:Integer;//Ñ÷¸ò÷èê
begin
  n:=0;
  while n<FS do
    begin
      m1:=48;
      n1:=high(Cardinal);
      for i:=0 to 255 do
        if (El[i].Count<>0) and (El[i].Count < n1) then
           begin
             n1 := El[i].Count;
             m1:=i;
           end;
      n1:=high(Cardinal);
      m2:=m1;
      for i:=0 to 256 do
        begin
        if (m2=m1)and(i=256) then
          begin
          if m1>0 then
            m2:=m1-1
          else
            m2:=m1+1;
          break;
          end;
        if (i<256)and(El[i].Count <> 0) and (El[i].Count <= n1) and (i<>m1) then
          begin
            n1 := El[i].Count;
            m2:=i;
          end;
        end;
      El[m1].Count:=El[m1].Count + El[m2].Count;
      n:=El[m1].Count;
      El[m1].Code:=El[m1].Code shl 1;
      El[m2].Count:=0;
      El[m1].Length:=El[m1].Length+1;
      while El[m1].Link>=0 do
        begin
        El[El[m1].Link].Length:=El[El[m1].Link].Length+1;
        El[El[m1].Link].Code:=El[El[m1].Link].Code shl 1;
        m1:=El[m1].Link;
        end;
      El[m1].Link:=m2;
      El[m2].Code:=(El[m2].Code shl 1)+1;
      while El[m1].Link>=0 do
        begin
        El[El[m1].Link].Length:=El[El[m1].Link].Length+1;
        m1:=El[m1].Link;
        El[El[m1].Link].Code:=(El[El[m1].Link].Code shl 1)+1;
        end;
    end;
end;