Дан массив состоящий из 9 элементов со значениями -3 до 3. подсчитать кол-во отрицательных чисел

Const n=9;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(7)-3;
 write(a[i]:4); 
end;
writeln;
k:=0; 
for i:=1 to n do if a[i]<0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
   3  -2   1   1  -2   0   3   0   0
k = 2