Подсчет количества “1” в последовательности бит

32-хfunction Kol_ed : Integer;
16-тиfunction Kol_ed : word;

Функция возвращает количество “1”, содержащихся в битовой последовательности.

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

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

…

J := BitStr.Kol_ed; {Количество “1” бит}

…

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

…

J := BitStr^.Kol_ed; {Количество “1” бит}

…