Pascal. транспонировать матрицу

[Vadislav]

необходимо транспонировать матрицу:
1 2
1 2

program massiv;
  var
mass:array[0..1,0..1] of integer;
i,j:integer;
  begin
For i:=0 to 1 do 
for j:=0 to 1 do read(mass[i,j]);

writeln;
for i:=0 to 1 do 
for j:=0 to 1 do writeln(mass[j,i]);
end.

программа работает,но пишет элементы матрицы в столбик, а надо прийти к виду:
1 1
2 2

[Serge_Bliznykov]

  for i:=0 to 1 do begin
     for j:=0 to 1 do write(mass[j,i]:3,' ');
     WriteLn;
  end;

[Vadislav]

Спасибо!!!