TP3/shell/tests/fixtures/t123_nestedarray.pas

program nested_array_test;
var A : array[1..2] of array[1..2] of integer;
    B : array[-1..1] of integer;
begin
  A[2,1] := 42;
  B[-1] := 7;
  writeln(A[2,1], ' ', B[-1])
end.