[lmikle]

Ну, например, так:

Код:

var
  A1, A2 : Array [0..9] Of Integer;
  A : Array [0..1,0..9] Of Integer;
  I : Integer;
begin
  For I := 0 To 9 Do
    Begin
      A[0,I] := A1[i];
      A[1,I] := A2[i];
    End;
end;

А со "случайной" расстрановкой - не понятно что имеено нужно. Если просто перемешать элементы, то можно это сначала сделать в исходных массивах. Если исходные массивы трогать нельзя, то немного сложнее - надо делать случайную генерацию сдвига с, возможно, доп. массивом флагов для проверки того, что ячейка занята. Зависит от условий на исходные данные.