Построить одномерный массив целых чисел,принимающих значения на заданном интервала.числа сформировать при генератора случайных чисел

Program n1;
const n=15;
var mas: array[1..n] of integer;
i,a,b: integer;
begin
write('введите интервал [a;b]: ');
readln(a,b);
writeln('полученный массив:');
for i:=1 to n do
begin
mas[i]:=random(b-a+1)+a;
write(mas[i],' ');
end;
end.