Подсчитать количество положительных отрицателтных нулевых элементов массива (v1,v2,...,v90)

Спасибо большое :)

const  n = 90;var  v: array[1..n] of integer;  i, e, nn, np, nz: integer;begin  Randomize;  nn := 0; np := 0;  for i := 1 to n do  begin    e := Random(25) - 12;    v[i] := e;    if e > 0 then np := np + 1    else if e < 0 then nn := nn + 1;  end;  nz := n - np - nn;  writeln('Число элементов в массиве: отрицательных- ', nn, ', нулевых- ', nz,      ' положительных- ', np);end.Тестовое решение:Число элементов в массиве: отрицательных- 38, нулевых- 6 положительных- 46

PascalABC.NETvar  v:array[1..90]of integer;  i,otr,pol,n:integer;beginfor i:=1 to 90 do  begin  v[i]:=random(-10,10);  write(v[i],'; ');  if v[i]<0 then otr:=otr+1;  if v[i]>0 then pol:=pol+1;  if v[i]=0 then n:=n+1;  end;writeln;writeln('Положительных: ',pol); writeln('Отрицательных: ',otr);writeln('Нулевых: ',n);     end.