В массиве, состоящем из положительных и отрицательных чисел, определить, сколько элементов положительных и сколько элементов отрицательных

program zadacha;vara: array[1..1000] of integer;i,n,pol,otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);pol:=0;otr:=0;for i:=1 to n do begin a[i]:=random(1000)-300;write(a[i]:6);end;for i:=1 to n doif a[i] > 0 then beginpol:=pol+1;end;for i:=1 to n doif a[i] < 0 then beginotr:=otr+1;end;writeln();writeln('polojitelnih chisel ',pol, ' otricatelnih chisel ', otr);end.