gistfile1.pas

type
  TCharArray = array of char;
  TMyArray = Array[1..2,1..2] of longint;
  PMyArray = ^TMyArray;
const
   arone : TMyArray = ((1,2),(2,3));
   artwo : TMyArray = ((1,2),(4,5));
   arps   : array[1..2] of PMyArray = (@arone, @artwo);
function Y() : longint;
var
  arp : PMyArray;
  i : longint;
begin
  arp := arps[1];
  i := arp^[1][1];
  exit(i);
end;