Вставить в массив пять новых чисел после k-го элемента.

var a,j:array [1..100] of integer;i,k,n,h:integer;
begin
writeln('Введите размер массива: ');
readln(n);
writeln('Введите номер элемента с которого надо начинать:');
readln(k);
writeln('Введите новых 5 чисел ');
For h:=1 to 5 do
readln(j[h]);
for i:= 1 to n do
write(i:5);
WRITELN;
for i:= 1 to n do
begin
a[i]:=random(5)+35;
write(a[i]:5);
end;
h:=1;
for i:=k to n-k do
begin
a[i]:=j[h];
h:=h+1;
end;
writeln;
for i:=1 to n do
write(a[i]:5);
end.

var a,j:array [1..100] of integer;
    n,k,i,h,x:integer;
begin
randomize;
repeat
writeln('Введите размер массива от 2 до 95 n=');
readln(n);
until n in [2..95];
writeln('Исходный массив');
for i:= 1 to n do
 begin
  a[i]:=35+random(5);
  write(a[i]:4);
 end;
writeln;
repeat
writeln('Введите номер элемента с которого надо начинать от 1 до ',n,' k=');
readln(k);
until k in [1..n];
writeln('Введите новых 5 чисел ');
for h:=1 to 5 do
 begin
  readln(x);
  n:=n+1;
  for i:=n downto k+h+1 do
  a[i]:=a[i-1];
  a[k+h]:=x;
 end;
writeln('Массив поле вставок');
for i:=1 to n do
write(a[i]:4);
end.