Заполнить двумерный массив по заданному правилу - Pascal ABC (13363)

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

Доброго времени суток. Помогите разобраться с задачей. Дан одномерный массив А[20]. Заполнить двумерный массив B(10*10) по следующему правилу: четные строки массива В заполнить элементами расположенными на четных позициях массива А, нечетные строки массива В заполнить элементами расположенными на нечетных позициях массива А.

Решение задачи: «Заполнить двумерный массив по заданному правилу»

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

                            const n=10;
var a:array[1..2*n] of integer;
    b:array[1..n,1..n] of integer;
    i,j:byte;
begin
randomize;
writeln('Массив А');
for i:=1 to 2*n do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
writeln;
writeln('Массив В');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if odd(i)then b[i,j]:=a[2*j-1]
    else b[i,j]:=a[2*j];
    write(b[i,j]:3);
   end;
  writeln;
 end;
end.
                        