Объединить два заданных массива в один - Turbo Pascal

Формулировка задачи:

Как объединить два заданных массива А и B, которые содержат по 5 элементов, в один массив С = {a1, b1, a2, b2, ... ,a5, b5}. Полученный массив нужно вывести в отельной строке.

Решение задачи: «Объединить два заданных массива в один»

Листинг программы

const
  n1 = 5;
  n2 = 10;
 
var
  a, b: array [1..n1] of integer;
  c: array [1..n2] of integer;
  i, k: integer;
 
begin
  k := 1;
  for i := 1 to n1 do
  begin
    a[i] := random(n1);
    b[i] := random(n1);
    writeln(a[i], ' ', b[i]);
    c[k] := a[i];
    inc(k);
    c[k] := b[i];
    inc(k);
  end;
  for i := 1 to n2 do
    write(c[i]:3);
end.

Объяснение кода листинга программы

Объявлены константы n1 и n2, которые задают размеры массивов a и b соответственно.
Объявлены переменные a, b, c, i и k.
Переменная k инициализируется значением 1.
В цикле for перебираются все элементы массива a.
Каждый элемент массива a присваивается случайное значение из диапазона от 0 до n1-1.
Аналогично, каждому элементу массива b присваивается случайное значение из диапазона от 0 до n1-1.
Элементы массива a выводятся на экран, после чего присваиваются элементу массива c с индексом k, и значение k увеличивается на 1.
Затем, элемент массива b присваивается элементу массива c с индексом k, и значение k увеличивается на 1.
После завершения цикла, выводятся все элементы массива c.
Каждое значение выводится в формате xD, где x - это пробел, а D - это 3-х значный формат вывода числа.