Удаление битовой подстроки

32-хprocedure Delete (Index, Count: Integer);
16-тиprocedure Delete (Index, Count: word);

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

Процедура удаляет в текущей переменной Count  бит с позиции Index.

Например, переменная BitStr  содержит битовую последовательность вида (1101111100111001100). После выполнения процедуры удаления последовательности бит длиной 5, начиная с третьего бита (для примера, приведенного в таблице), переменная BitStr  будет содержать битовую последовательность вида (11000111001100).
32-х

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

…

BitStr. Delete (3, 5); {Удаление последовательности бит }

…

16-ти

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

…

BitStr^.Delete (3, 5); { Удаление последовательности бит }

…