Как в pascal abc заполнить массив случайными числами в диапазоне [-10000; 10000]?

var

 masiv:array[-10000..10000] of integer;

begin

 for var i := -10000 to 10000 do

 begin

   randomize;

   masiv[i] := random(-10000, 10000);

 end;

end.