так будет проще ну по мне так это проще

program m_1;
var n, k1, x, max, min, i: integer;
begin 
 writeln ('Случайные числа из интервала [a;b]');
 write ('Введи минимальное значение интервала - ');
 read (min);
 write ('Введи максимальное значение интервала - ');
 read (max);
 write ('Введи кол-во случайных чисел - ');
 read (n);
 for i:=1 to n do
  begin
   x:=random(max-min+1)+min;
   write (x,' ');
  end;
end.