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

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. работает у меня:)