Пожалуйста... Заполнить массив из 10 частей случайными числами. начальный массив :

Не знаю, в каком промежутке обязаны быть случайные числа, поэтому решил что в промежутке от 0 до 99. Если что сможете поменять

program a2;

var

 massiv: array [1..10] of integer;

 i: integer;

begin

 for i := 1 to 10 do

 begin

   readln(massiv[i]);

   massiv[i] := random(100);

 end;

 for i := 1 to 10 do

   write(massiv[i], ' ');

end.