Двухмерные масивы

[Vitalik1]

ЯК ЗРОБИТИ , ЩОБ ВИВОДИЛАСЬ ТАБЛИЦЯ ПО ШИРИНІ А НЕ ВНИЗ?program dvox_mas;

{$APPTYPE CONSOLE}

uses
SysUtils;

const n=5; m=5;
var t:array[1..n,1..m] of real;
i,j:integer;
dob:real;
begin
randomize;
writeln('Nash masuv');
for i:=1 to n do
for j:=1 to m do
begin
t[i,j]:=random(10);
end;
for i:=1 to n do
begin
for j:=1 to m do
writeln('t[',i,'.',j,']=',t[i,j]:5:2);
writeln;
end;
dob:=1;
for i:=1 to n do
for j:=1 to m do
if t[i, j]>0.5 then
begin
dob:=dob*t[i,j];
end;
writeln(dob:5:2);
readln;
end.

[BoozZzilla]

writeln('t[',i,'.',j,']=',t[i,j]:5:2);

writeln выводит начинает с новой строки
write просто выводит на экран

for i:=1 to n do
begin
for j:=1 to m do
write('t[',i,'.',j,']=',t[i,j]:5:2);
writeln;
end;

[Vitalik1]

благодорю за помощь