Конкатенация битовых последовательностей

32-хprocedure Concat ( Dopoln : TStr_Bit);
16-тиprocedure Concat ( Dopoln : PStr_bit);

Dopoln   - битовая переменная дополнения;

Процедура дописывает битовую последовательность переменной дополнения в конец битовой последовательности текущей переменной.

Например, переменная BitStr  содержит битовую последовательность вида (110100000), переменная Dopoln  (1110000). После выполнения процедуры (для примера, приведенного в таблице) переменная BitStr   будет содержать битовую последовательность вида (1101000001110000).
32-х

Var BitStr, Dopoln : TStr_bit; {Объявление переменной}

…

BitStr.Concat (Dopoln); {Слияние битовых последовательностей}

…
16-ти

Var BitStr, Dop : PStr_bit; {Объявление переменной}

…

BitStr^.Concat (Dop); {Слияние битовых последовательностей}

…