Описать процедуру вычисления количества положительных чисел в массиве w из n элементов

После завершения цикла остается только вывести на экран значения переменных pos и neg, которые содержат количества положительных и отрицательных элементов массива.

Исходный код программы поиска количества положительных и отрицательных элементов массива на языке Pascal:

const N = 30;

var

  a: array[1..N] of integer;

  i, pos, neg: byte;

begin

  randomize;

  pos := 0;

  neg := 0;

  for i:=1 to N do begin

      a[i] := random(100) - 50;

      write(a[i]:4);

      if a[i] < 0 then

          neg := neg + 1

      else

          if a[i] > 0 then

              pos := pos + 1;

  end;

  writeln;

  writeln('Положительных: ', pos);

  writeln('Отрицательных: ', neg);

end.

Объяснение: