Почему двумерный массив отображается в виде строчки???

[SkuLLL]

Программный код:

Program  massiv;
const n=10;m=10;
Var a:array[1..n,1..m]  of integer;
k,i,j,b:integer;
Begin
writeln('B');
readln(b);
Randomize;
k:=0;
For i:=1 to n do begin
For j:=1 to m do
begin
a[i,j]:=8;
write(a[I,j]:4);
if a[i,j] mod 10 = b then
k:=k+1;
End;
end;
writeln(k);
end.

[AlDelta]

переходите на новую строку после первого цикла

[Mad_Cat]

For i:=1 to n do begin
For j:=1 to m do
begin
a[i,j]:=8;
write(a[I,j]:4);
if a[i,j] mod 10 = b then
k:=k+1;
End;
writeln;
end;