Вставка битовой подстроки

32-хprocedure Insert (Dop : TStr_Bit; Index: Integer);
16-тиprocedure Insert (Dop : PStr_bit; Index: word);

Index   – позиция бита в битовой строке (0…длина битовой переменной);
Dop   - добавляемая битовая переменная.

Процедура осуществляет вставку битовой последовательности - Dop   в текущую переменную, начиная с позиции Index.

Например, переменная - BitStr   содержит битовую последовательность вида (110100000111). После выполнения вставки последовательности бит Dop   (1101), начиная с бита 4 (для примера, приведенного в таблице), переменная - BitStr  будет содержать битовую последовательность вида (1101110100000111).
32-х

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

…

BitStr.Insert (Dop, 4); {Вставка битовой последовательности}

…

16-ти

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

…

BitStr^. Insert (Dop, 4); { Вставка битовой последовательности }

…