Delphi вывод матрицы!

[BelialL]

подскажите пожалуйста что нужно прописать в программе:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
A:array [1..100,1..100] of integer;
B:array [1..100,1..100] of integer;
n,i,j,sum:integer;
begin
WriteLn('(CJIAY nxn): n=');
Read(n);
Writeln('Elementi CJIAY:');

for i:=1 to n do
begin
for j:=1 to n do
Read(A[i,j]);
end;
sum:=0;
for i:=1 to n do
sum:=sum+A[2,i];
writeln('Symma 2 stroki = : ',sum);
Writeln('Matrica B = :');
for i:=1 to n do
begin
for j:=1 to n do
begin
B[i,j]:=A[i,j]+1;
Write (B[i,j]);
end;
readln;
end;

end.

а именно в этой части

begin
B[i,j]:=A[i,j]+1;
Write (B[i,j]);
end;
readln;
end;

end.

чтобы матрица B выводилась не в строчку а виде матрицы например так :
2 3 4
1 4 2

[GetMax]

Writeln('Matrica B = :');
for i:=1 to n do
begin
for j:=1 to n do
begin
B[i,j]:=A[i,j]+1;
Write (B[i,j],'  ');
end;
Writeln
end;
Readln

[BelialL]

Сообщение от GetMax

Writeln('Matrica B = :');
for i:=1 to n do
begin
for j:=1 to n do
begin
B[i,j]:=A[i,j]+1;
Write (B[i,j],'  ');
end;
Writeln
end;
Readln

если делать матрицу 2х2 то все правильно! а если 3х3 то выводит только 2 строки может както по другому можно это сделать?

[bumer7721]

Writeln('Matrica B = :');
for i:=1 to n do
begin
for j:=1 to n do
begin
B[i,j]:=A[i,j]+1;
Write (B[i,j],' ');
end;
Writeln;
end;

Здесь всьо верно ты посто что то не доглидел

попробуй
в конце прописать

readln;
readln;

ето потому что вводиш матрицу read

[BelialL]

все получилось! Спасибо!