Помогите с программой в паскале с помощью процедуры Процедура выводит 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. // конец программы