Слить два массива в один, чтобы элементы шли через один

var
  a: array[1..5] of word;
  b: array[6..10] of word;
  c: array[1..10] of word;
  i: byte;
begin
  randomize;
  for i := 1 to 10 do
    if i < 6 then begin a[i] := random(201); if i = 5 then writeln(a[i]) else write(a[i],' '); c[i] := a[i] end
    else begin b[i] := random(201); write(b[i],' '); c[i] := b[i] end;
  writeln;
  for i := 1 to 10 do
    write(c[i],' ');
  readln
end.

uses crt;
const n=9;
var a,b,c:array[1..2*n] of integer;
    i:byte;
begin
clrscr;
writeln('Массив А:');
for i:=1 to n do
 begin
  a[i]:=i;
  write(a[i],' ');
 end;
writeln;
writeln;
writeln('Массив B:');
for i:=1 to n do
 begin
  b[i]:=10*i;
  write(b[i],' ');
 end;
writeln;
writeln;
writeln('Массив C:');
for i:=1 to 2*n do
 begin
  if odd(i) then  c[i]:=a[i div 2+1]
  else c[i]:=b[i div 2];
  write(c[i],' ');
 end;
readln
end.