Создать программ с использованием процедур:

[Ulmas]

Верю в вашу гениальность. Буду очень благодарен за помощь, ибо для меня эта задача непосильна.

№33
Создать программ с использованием процедур:
Составить программу формирования элементов массива с помощью генератора случайных чисел в процедуре. В теле программы проверить работу процедуры, выведя элементы массива на экран.

[hannan]

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.
 n-количество элементов массива