Задача по паскалю тип integer

каких элементов в массиве больше положительных или отрицательных

Var a: array [0 ... 9] of integer;

i, j: integer;

begin

write (' ') ;

for i : = 0 to 9 do

begin

a[i] : = random (51) - 25;

writeln ('[', i, '] = > ', a[i]) ;

end;

for i : = 0 to 9 do

if (a[i] < 0) then

dec (j)

else

if (a[i] > 0) then

inc (j) ;

if (j > 0) then writeln (' + > - ') ;

if (j = 0) then writeln (' + = - ') ;

if (j < 0) then writeln (' + < - ') ;

end.