Вывод многомерного массива

var
  a: array[1..2, 1..3, 1..3] of integer :=
  (((1, 2, 3), (4, 5, 6), (7, 8, 9)), 
   ((4, 5, 2), (5, 8, 3), (3, 8, 9)));
 
begin
  for var layer := 1 to 2 do
  begin
    writeln('layer:', layer);
    for var i := 1 to 3 do 
    begin
      for var j := 1 to 3 do write(a[layer, i, j]:3);
      writeln;
    end;
  end;
end.

var
  a: array[1..2, 1..2, 1..3, 1..3] of integer :=
  ((((1, 2, 3), (4, 5, 6), (7, 8, 9)), 
   ((4, 5, 2), (5, 8, 3), (3, 8, 9))),
   (((1, 2, 3), (4, 5, 6), (7, 8, 9)), 
   ((4, 5, 2), (5, 8, 3), (3, 8, 9))));
 
begin
  for var cube := 1 to 2 do
  begin
    writeln('cube:', cube);
    for var layer := 1 to 2 do
    begin
      writeln('layer:', layer);
      for var i := 1 to 3 do 
      begin
        for var j := 1 to 3 do write(a[cube, layer, i, j]:3);
        writeln;
      end;
    end;
  end;
end.

const
  x = 9;
  y = 9;
  z = 9;
 
var
  a: array [0..x, 0..y, 0..z] of integer;
 
begin
  for var cx := 0 to x do
    for var cy := 0 to y do
      for var cz := 0 to z do
        Readln(a[cx, cy, cz]);
        
  for var cx := 0 to x do
    for var cy := 0 to y do
      for var cz := 0 to z do
        WritelnFormat('{0} with {1}, {2}, {3};', a[cx, cy, cz], cx, cy, cz);
end.

const
  x = 9;
  y = 9;
  z = 9;
  w = 9;
 
var
  a: array [0..x, 0..y, 0..z, 0..w] of integer;
 
begin
  for var cx := 0 to x do
    for var cy := 0 to y do
      for var cz := 0 to z do
        for var cw := 0 to w do
          Readln(a[cx, cy, cz, cw]);
  
  for var cx := 0 to x do
    for var cy := 0 to y do
      for var cz := 0 to z do
        for var cw := 0 to w do
          WritelnFormat('{0} with {1}, {2}, {3}, {4};', a[cx, cy, cz, cw], cx, cy, cz, cw);
end.