[dr. F.I.N.]

Код:

type
  MyValueType=record
     x,y: integer;
  end;

const
  defMyValue1: MyValueType = (x: 2; y: 3);
  defMyValue2: MyValueType = (x: 4; y: 5);

type
  MyType=record
    C: Integer;
    Values: array of MyValueType;
  end;

const
  a: array [0..1] of ^MyValueType = (@defMyValue1, @defMyValue2);
  R: MyType = (C: 3; Values: @a);