// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var m:=ReadInteger(Количество элементов в массиве А (m):);
  var n:=ReadInteger(Количество элементов в массиве B (n):);
  var k:=ReadInteger(Позиция вставки k (1lt;klt;m):);
  if (kgt;1) and (klt;m) then begin
    var a:=ArrRandom(m,1,99); Writeln(Массив A); a.Println;
    var b:=ArrRandom(n,1,99); Writeln(Массив B); b.Println;
    Writeln(Результат вставки); (a[:k]+b+a[k:]).Println
    end
  else Writeln(Вы нарушили условие 1lt;klt;m)
end.

Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1lt;klt;m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26