Запись битовой последовательности в файл. (Алгоритм Хаффмана)

[KingCrimson]

Алгоритм архвации Хаффмана.

Есть массив

type code=record           //глобально
         inf:Char;
         code:shortstring;
end;
var codes=array of code;

Допустим массив выглядит так: (A, 0; B, 11; C, 10; )

Тогда последовательность AABBC будет выглядеть так 00111110.
Но вопрос в том, как записать закодированную последовательность, чтобы каждый элемент весил 1 бит, которым он по сути и является.

Надеюсь я сформулиловал вопрос правильно. Буду рад любому совету.