[NIch]

Код:

var
 A: array of array of word;//Массивы
 B: array of array of word;
begin
 SetLength (A, 10, 5);//Установка размеров массивов
 SetLength (B, 5, 10);
 for i := 0 to Length(A)-1 do
  for j := 0 to Length(B)-1 do
   A(i, j) := B (j, i);//Содержимое строки записываешь в столбец
end;

Как то так...