Объединить массивы в один, включив второй между пятым и шестым элементами

program ex4;
uses CRT;
const
k=5;
var 
a:array [1..10] of integer;
b:array [1..5] of integer;
c:array [1..15] of integer;
i,x,n:integer;
begin
 
for i:=1 to 10 do
 
begin 
Writeln ('Введите ',i,' элемент первого массива');
readln (a[i]);
end;
for x:=1 to 5 do
begin
writeln ('Введите ',x,' элемент второго массива');
readln (b[x]);
end;
writeln('Первый массив');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln('Второй массив');
for x:=1 to 5 do write (b[x],' ');
writeln;
for n:=15 downto k do
c[i+5]:=a[i];
c[k]:= b[x];
for n:=1 to 15 do write(c[n]);
writeln;
end.

program ex4;
uses CRT;
const k=5;
type mas=array [1..3*k] of integer;
procedure vvod(var a:mas;n:integer;c:char);
var i:integer;
begin
writeln('Введите ',n,' элементов массива ',c);
for i:=1 to n do
 begin
  write(c,'[',i,']=');
  readln(a[i]);
 end;
clrscr;
end;
procedure vyvod(a:mas;n:integer;c:string);
var i:integer;
begin
writeln(c);
for i:=1 to n do
write(a[i]:4);
writeln;
end;
var a,b:mas;
    i,j,na,nb:integer;
begin
na:=2*k;
nb:=k;
vvod(a,na,'A');
vvod(b,nb,'B');
vyvod(a,na,'Массив A');
vyvod(b,nb,'Массив B');
for i:=1 to nb do
 begin
  na:=na+1;
  for j:=na downto k+i+1 do
  a[j]:=a[j-1];
  a[k+i]:=b[i];
 end;
vyvod(a,na,'Объединенный массив');
end.

  for i:=5 downto 1 do begin
    a[2*k+i]:=a[k+i];
    a[k+i]:=b[i];
  end;

for i:=1 to nb do//количество элементов в массиве В
 begin
  na:=na+1;//добавим размер массива А
  for j:=na downto k+i+1 do //сдвинем элементы после 5+уже вставленные
  a[j]:=a[j-1];//на 1 вправо
  a[k+i]:=b[i];//на освободившееся место вставляем очередной элемент массива В
 end;