Kod Huffmana - wytłumaczenie części wstawiania elementu do listy

 begin
     while true do begin
           e:=root;                  //Bierzemy pierwsze dwa elementy (najmniejsze)
           e1:=e^.next;

           if e1=nil then break;     //Jeśli na liście jest tylko jeden element, kończymy

           root:=e1^.next;           //Usuwawmy te elementy z listy

           new(n);                       //Tworzymy nowy węzeł
           n^.left:=e;                   //Dołączamy do niego poprzednie elementy
           n^.right:=e1;
           n^.count:=e^.count+e1^.count; //Sumujemy ilości wystąpień

           //Wstawiamy węzeł w odpowiednim miejscu

           if (root = nil) or (n^.count <= root^.count) then begin
              n^.next := root;
              root := n;
              continue;
           end;

           r := root;

           while (r^.next <> nil) and (n^.count > r^.next^.count) do r := r^.next;

           n^.next := r^.next;
           r^.next := n;


     end;
end;

           //Wstawiamy węzeł w odpowiednim miejscu

           // jeśli lista pusta (po wyciągnięciu) lub waga nie większa niż nowy element początkowy to
           // użyj specjalnego wstawiania na początek i przejdź do następnej iteracji
           if (root = nil) or (n^.count <= root^.count) then begin
              n^.next := root;
              root := n;
              continue;
           end;

           // w innym wypadku przejdź do miejsca na liście tuż po ostatnim węźle lżejszym niż wstawiany
           r := root;

           while (r^.next <> nil) and (n^.count > r^.next^.count) do r := r^.next;

           // i wstaw go przepinając wskaźniki
           n^.next := r^.next;
           r^.next := n;