Пожалуйста помоги, очень плохая оценка за четверть выходит, помогите с задачей

Var a: array[0… 10] of integer; i, j, k: integer; begin for i: =0 to 10 do begin a[i]: =random (90) — 45; writeln ('[', i, '] => ', a[i]); end; for i: =0 to 10 do if (a[i] < 0) then inc (j) else if (a[i] > 0) then inc (k); writeln (j, ', k); end. Работает у меня