Помогите с программой в паскале с помощью процедуры Процедура выводит N целых случайных чисел с интервала a, b

var a, b, n, i:integer; / /числа А, В, N и итератор

procedure p (a:integer; b:integer); / / создание процедуры, получающей на вход границы диапазона

begin

write (random (10000000) mod b + a, ' '); {генерация случайного числа, которое будет входить в диапазон от А до В и вывод сгененрированного числа}

end;

begin

randomize; / / процедура, позволяющая выводить случайные числа

read (a, b, n); / /считывание входных данных

for i: = 1 to n do / / основной цикл программы

begin

p (a, b); / / выполнение функции N раз

end;

end. / / конец программы