массивы на паскаль

[gulsana-89@mail.ru]

даны два массива нужно создать 3 массив который будет содержать элементы первого и второго массивов только поочереди

я начала вот так
var a:array[1..9]of byte
b:array[10..19] of byte
begin
for i:=1 to 9 do
begin
a[i]:random(9);
write(a[i],''); read; end;
writeln;
for i:=1 to 9 do begin
низнаю что дальше писать это я тож с другой программы взяла

[Mad_Cat]

var a,b:array[1..9] of integer;
c:array[1..18] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 9 do
begin
a[i]:=random(9);
b[i]:=random(9);
end;
k:=0;
for i:=1 to 9 do
begin
inc(k);
c[k]:=a[i];
inc(k);
c[k]:=b[i];
end;
readln;
end.