Помогите со вторым номером. составить программу

ОТДЕЛ Задание;

ПЕР
  W: РЯД 10 ИЗ ЦЕЛ;
  положительных, ненулевых, сч: ЦЕЛ;

УКАЗ
  положительных := 0;
  ненулевых := 0;
  ОТ сч := 0 ДО РАЗМЕР(W)-1 ВЫП
    ЕСЛИ W[сч] gt; 0 ТО УВЕЛИЧИТЬ(положительных)
    АЕСЛИ W[сч] = 0 ТО УВЕЛИЧИТЬ(ненулевых)
    КОН
  КОН

КОН Задание.