Сформировать массив с random от -30 до 30.размер 10 элементов .сколько в массиве отрицательных элементов?

Begin
randomize;
for i:=1 to n do
a[i]:random (60)-30;
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
writeln('k=',k);
end.

язык программирования - Pascal, k - количество отрицательных элементов