Заданы два одномерных массива.Объединить их в один массив, включив второй массив между K и (K+1) элементами первого

Var A,B:array[1..100] of integer;
    C:array[1..200] of integer;
    i,j,k,p,n,m:integer;
Begin
    Randomize;
    write('Введите размерность первого массива: ');readln(m);
    writeln('Первый массив');
    For i:=1 to m do
     Begin
      A[i]:=Random(10);
      write(A[i]:2);
     End;
    writeln;
    write('Введите размерность второго массива: ');readln(n);
    writeln('Второй массив');
    For i:=1 to n do
     Begin
      B[i]:=Random(10);
      write(B[i]:2);
     End;
    writeln;
    Repeat 
     write('Введите k: ');readln(k);
    Until k in [1..m-1];
    writeln('Объеденённый массив');
    j:=0;i:=0;p:=0;
    While i<m do
     Begin
      inc(j);inc(i);
      if (i=k+1)and(p<>n) then
       Begin
        For p:=1 to n do
         Begin
          C[j]:=B[p];
          write(C[j]:2);
          inc(j);
         End;
        dec(i);
       End
       else 
        Begin
         C[j]:=A[i];
         write(C[j]:2);
        End;
     End;
    readln;
End.