Заполнить массив 0 и 1 при помощи генератора случайных чисел. Определить количество 0 и 1

Помогите, пожалуйста

ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";ПЕР  массив: РЯД 100 ИЗ ЦЕЛ;  сч, нулей, единиц: ЦЕЛ;УКАЗ  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ()))  КОН;  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП    ЕСЛИ массив[сч] = 1 ТО УВЕЛИЧИТЬ(единиц)    ИНАЧЕ УВЕЛИЧИТЬ(нулей) КОН  КОНКОН Задание.