[verdix]

Вообшем вот, есть программа. В которой есть заполеный масив (рандом)

Код:

Program Z4;
uses Crt;
const X=2;
      Y=4;
      Z=3;
      Q=2;
var M1:array[1..X,1..Y,1..Z,1..Q] of integer;
    i,k,j,l,S:integer;
begin
     ClrScr;
     Randomize;
     S:=0;
     For i:=1 to X do
     For k:=1 to Y do
     For j:=1 to Z do
     For l:=1 to Q do
     begin
          M1[i,k,j,l]:=Random(5)+1;
          S:=S+M1[i,k,j,l];
          Writeln(M1[i,k,j,l]);

     end;
     
     Writeln(S);
     Readln;



end.

Как сделать так, чтобы он вывел этот масив в приблезительно таком виде

Код:

1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8