Получить третий массив который на четных номерах элементы второго массива на нечетных элементы первого массива

type
  tAr=array[1..100] of integer;
 
{процедура инициализации массива}
procedure init(var ar: tAr; n: integer);
var i: integer;
begin
  for i:=1 to n do
    ar[i]:=random(99)+1;
end;
 
{процедура вывода массива на экран}
procedure output(ar: tAr; n: integer);
var i: integer;
begin
  for i:=1 to n do
    write(ar[i]:4);
  writeln;
end;
 
var
  i,n: integer;
  a,b,c: tAr;
begin
  write('Введите размер массивов:');  {приглашение на ввод}
  readln(n);                          {считывание размера массива}
  init(a,n);                          {инициализируем 1-й массив}
  writeln('1-й массив:');             {вывод на экран}
  output(a,n);                        {вывод 1-го массива}
  init(b,n);                          {инициализация 2-го массива}
  writeln('2-й массив:');             {вывод на экран}
  output(b,n);                        {вывод 2-го массива}
  for i:=1 to n do
  begin
    c[2*i-1]:=a[i];                   {нечетным номерам 3-го массива соотв-т элементы 1-го}
    c[2*i]:=b[i];                     {четным - 2-го}
  end;
  write('3-й массив:');
  for i:=1 to 2*n do write(c[i]:4);    {вывод на экран}
end.