Задача по паскалю тип 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.