Задан одномерный массив из n элементов. Найти количество отрицательных элементов массива.

var i, n, k: integer;
a: array [1..100] of integer;
begin
write ('n=');
readln (n);
k:=0;
for i:=1 to n do
begin
a[i]:= -9 + random (19);
write (a[i]:4);
if a[i] < 0 then inc(k);
end;
writeln;
writeln ('количество отрицательных элементов = ', k);
end.