объединение матриц

[eHappy]

Задача:даны 4 матрицы a[1..3,1..4]; b[1..2,1..3]; c[1..5,1..4]; d[1..6,1..3].составит программу убъединиения этих матриц в одну вида |a,b|
|c,d|
( где в правом верхнем углу элементы матрицы а в левом верхнем матрцы б в нижнем левом с и в нижнем правом д )

но выводит почимуто в 1 столбец всё.

for i:=1 to 11 do begin
for j:=1 to 8 do begin
if (i<3) and (j<4) then write(a[i,j]:2:0);
if (i>3) and (j<4) then write(b[i,j]:2:0);
if (j>4) and (i<5) then write(c[i,j]:2:0);
if (i>5) and (j>4) then write(d[i,j]:2:0);
но выводит почимуто в 1 столбец всё. памогите

[Лучик_света]

ты в конце первого цикла for i:=1 to 11 do begin напиши writeln, чтобы переходило на новую стоку.; должно помочь.

[puporev]

Сильно не поможет, т.к. непонятно откуда 11, если итоговая матрица будет 8х7. При переносе единичных матриц b,c,d будут меняться индексы, это надо учесть.
Вот фрагмент кода, который тебе должен помочь.

writeln('Rezultat:');
for i:=1 to 3 do
for j:=1 to 4 do
e[i,j]:=a[i,j];

for i:=4 to 8 do
for j:=1 to 4 do
e[i,j]:=c[i-3,j];

for i:=1 to 2 do
for j:=5 to 7 do
e[i,j]:=b[i,j-4];

for i:=3 to 8 do
for j:=5 to 7 do
e[i,j]:=d[i-2,j-4];

for i:=1 to 8 do
    begin
      for j:=1 to 7 do
      write(e[i,j]:4);
      writeln
    end;
readln
  end.