Delphi定义多维数组和读取多维数组

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  MyArr: array[0..3,0..1] of Integer = ((1,2),(4,3),(22,31),(56,10));
  I1,I2: Integer;
begin
  for I1 := 0 to High(MyArr) do
  begin
    for I2 := 0 to High(MyArr[I1]) do
    begin
      Writeln(MyArr[I1][I2]);
    end;
  end;
  Readln;
end.