TYPE
pow = POINTER TO RECORD
	a, b: INTEGER
END;
 
pow2 = ARRAY OF pow;
 
pow3 = POINTER TO pow2;

PROCEDURE a(): pow3;
VAR z: pow3;

PROCEDURE a(): pow3;
VAR z: pow3; i: INTEGER;
BEGIN
  NEW(z, 100); (* Объявляем массив длиной в 100 элементов *)
  FOR i := 0 TO 99 DO (* Перебираем все его элементы в цикле *)
    NEW(z[i]); (* Выделяем память под элемент массива (запись) *)
    z[i].a := 1; z[i].b := 2; (* Присваиваем этой записи значение её полей *)
  END;
  RETURN z
END a;