Подсчитать количество отрицательных чисел в числовой последовательности — Pascal(Паскаль)

uses crt;
const sz = 100;
var i, n, j:integer;
    a: array[1..sz] of integer;
begin
  Randomize; 
  write('Длина последовательности: ');
  readln(n);
  j:=0;
  writeln('array:');
  for i:=1 to n do
    begin
      a[i]:=random(20)-10;{Случайно заполняем значениями из диапазона [-10..9]}
      write(a[i]:3);
      if a[i]<0 then inc(j);
    end;
  writeln;
  writeln('Result: ', j);
end.