Инвертирование битовой последовательности

32-хprocedure InvStrBit;
16-тиprocedure InvStrBit;

Процедура инвертирует битовую последовательность. Каждая "1" становится "0" и наоборот.

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

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

…

BitStr.InvStrBit; {Инвертирование битовой последовательности}

…

16-ти

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

…

BitStr^.InvStrBit; {Инвертирование битовой последовательности}

…