Заполнение двумерного массива по строке

Массив содержит 3 строки и 4 столбца, т.е. 3х4=12 элементов

а11	а12	а13	а14
а21	.	.	.
.	.	.	.

For i:=1 to 3 do

For j:=1 to 4 do

a[i,j]:=random(100);

2. Заполнение двумерного массива по столбцу:

а11	а12	.	.
а21	.	.	.
а31	.	.	.

For j:=1 to 4 do

For i:=1 to 3 do

a[i,j]:=random(100);

3. Печать содержимого на экран:

For i:=1 to n do

begin

For j:=1 to m do

Write (A[i,j]); {Вывод элементов одной

строки матрицы}

Writeln; { переход на следующую строку экрана}

end;

Где

А - имя массива;

i - индекс строки;

j - индекс столбца;

n - количество элементов в строке;

m - количество элементов в столбце.