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

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] gt; 0 then beginpol:=pol+1;end;
for i:=1 to n doif a[i] lt; 0 then beginotr:=otr+1;end;writeln();writeln(polojitelnih chisel ,pol, otricatelnih chisel , otr);end.