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

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...ОтделыЧисла";

ПЕР
  массив: РЯД 100 ИЗ ЦЕЛ;
  сч, нулей, единиц: ЦЕЛ;

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

КОН Задание.