Обработка одномерных массивов

[Volume]

вы можете мне целиком написать программу?потому что я не пойму,как и чем надо будет ее дополнить
Обработка одномерных массивов.
Простые циклы.
Работа в Делфи
Заданы два массива a1, a2, …, an , b1, b2, …bn и целочисленная переменная k (1<k<n). Объединить эти массивы в один, включив массив b между k-м и k+1-м элементами массива a.

[Sparkman]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=5;
var a:array[1..n*2] of integer;
    b:array[1..n] of integer;
    k:integer;
    i:integer;
begin
     k:=0;
     while (k<1)or(k>n) do
     begin
          write('Enter k (between 1..',n,'): ');
          readln(k);
     end;
     randomize;
     write('A: ');
     for i:=1 to n do
     begin
          a[i]:=random(10)-5;
          write(a[i]:3);
     end;
     writeln;

     write('B: ');
     for i:=1 to n do
     begin
          b[i]:=random(10)-5;
          write(b[i]:3);
     end;
     writeln;
     writeln;

     for i:=n+k+1 to n*2 do
     a[i]:=a[i-n];

     for i:=k+1 to n+k do
     begin
          a[i]:=b[i-k];
     end;

     write('A: ');
     for i:=1 to n*2 do
     write(a[i]:3);
     writeln;
     readln;
end.

[Volume]

спасибо .а ничем дополнять не надо?

[Volume]

спасибо,добрый человек.Можно я еще понаглею??еще подкину задачу на Делфи?