Произвести вставку элемента в одномерный массив, заданный датчиком случайных чисел.

program prim22;
  uses crt;
  var a: array [1..1000] of integer;
      r,i,k,n:integer;
begin
  randomize;
  clrscr;
{Создаем массив и выводим на экран.}
  write(' число элементов n=');readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(45)-22;
      write(a[i], ' ' );
    end;
{Вводим индекс и значение вставляемого элемента.}
  write(' индекс < =N ');readln(k)
  write('значение R =');readln(r);
{Смещаем элементы к концу массива, начиная с К+1.}
  for i:=n+1 downto 1 do
    begin
      if i>k then a[i]:=a[i-1];
    end;
{На К-ое место ставим введенный элемент.}
  a[k]:=r;
{Выводим на экран измененный массив}
  for i:=1 to n+1 do
    begin
      write(a[i],'');
    end;
  readln;
end.