Имеется массив целых чисел размером N (задается константой). Заполнить его случайными

//Pascal
const N = 10;
var
  A: array [1..10] of integer;
  i: byte;
  Min, Max: integer;
begin
randomize;
  write('Введите спектр случайных чисел: ');
  readln(Min, Max);
  for i := 1 to 10 do
  begin
    A[i] := random(Max-Min+1)+Min;
    write(A[i]:4);
  end;
end.