Вывести в виде матрицы

[Raphael]

Как мне вывести матрицу, например, в таком виде:

5 6 7
7 5 3
3 4 5

Program Maximum;
Uses Crt;
const nmax=100;
Var
a:array[1..nmax, 1..nmax] of integer;
i,j,imx,mx,sm,n:integer;
begin
Clrscr;
repeat
write('Razmer matrici do ', nmax ,' n = ');
readln(n);
until n in [1..nmax];
writeln ('Ishodnaya matrica:');
for i:=1 to n do begin
for j:=1 to n do begin
write ('a[',i,j,']=');
readln(a[i,j]);
end;
writeln;
end;
writeln;
mx:=a[n,n];
imx:=n;
for i:=n downto 1 do
for j:=n downto 1 do
if a[i,j]<mx then
begin
mx:=a[i,j];
imx:=i;
end;
writeln ('Min element',mx,' stroka s naibolshim nomerom',imx);
sm:=0;
for i:=1 to n do
sm:=sm+a[imx,i];
write ('Summa ee elementov=',sm);
readln;
end.

[RUSt88]

вывести в таком виде

5 6 7
7 5 3
3 4 5

можно так

for i = 0 to N do begin
   for j = 0 to M do begin
     write(a[i, j], #32);
   end;
   writeln;
end;