Помогите решить пожалуйста!! 30 баллов!

Заполнить массив из 10 элементов случайными числами в интервале [-100,100] и подсчитать КОЛИЧЕСТВО отрицательных элементов..

Ответ:

var a:array [1..10] of integer;

i,k:integer;

begin

write ('Массив ');

for i:=1 to 10 do

begin

a[i]:=random(201)-100;

write (a[i]:5);

if a[i]<0 then k:=k+1

end;

writeln;

writeln('Количество отрицательных чисел ',k)

end.