Составить программу формирования элементов массива с помощью генератора случайных чисел в процедуре. В теле программы проверить работу процедуры, выведя элементы массива на экран- Pascal(Паскаль)

var massiv:array [0..100] of integer;
     i,n:integer;
   procedure rnd;
    begin
     randomize;{инестализация генератора случайных чисел}
     readln(n);
      for i:=1 to n do
       massiv[i]:=random(100);{Заполнение массива} 
    end;

    begin
    rnd;{Запуск процедуры}
    for i:=1 to n do
      writeln(massiv[i]);{вывод массива}
    end.