// Multi-dimensional dynamic arrays (Matrix)
var matrix: array of array of Integer;

// Initialize a 3x3 identity matrix
matrix.SetLength(3);
for var i := 0 to 2 do begin
  matrix[i].SetLength(3);
  for var j := 0 to 2 do begin
    if i = j then
      matrix[i][j] := 1
    else
      matrix[i][j] := 0;
  end;
end;

// Print the matrix
PrintLn('Identity Matrix:');
for var i := 0 to High(matrix) do begin
  var row: array of String;
  for var j := 0 to High(matrix[i]) do
    row.Add(IntToStr(matrix[i][j]));
  PrintLn('[ ' + row.Join(' ') + ' ]');
end;

// Accessing elements
PrintLn('Element at (1,1): ' + IntToStr(matrix[1][1]));