delphi二维数组遍历输出的方法是什么

var
  arr: array of array of Integer;
  i, j: Integer;
begin
  // 初始化二维数组
  SetLength(arr, 3, 4);
  for i := 0 to 2 do
    for j := 0 to 3 do
      arr[i][j] := i * 10 + j;

  // 遍历并输出二维数组
  for i := 0 to 2 do
    for j := 0 to 3 do
      Writeln(arr[i][j]);
end.