Ну, например, так:
Код:
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;
А со "случайной" расстрановкой - не понятно что имеено нужно. Если просто перемешать элементы, то можно это сначала сделать в исходных массивах. Если исходные массивы трогать нельзя, то немного сложнее - надо делать случайную генерацию сдвига с, возможно, доп. массивом флагов для проверки того, что ячейка занята. Зависит от условий на исходные данные.