MODULE Test21;

TYPE
  PA = POINTER TO A;

  PC = POINTER TO C;

  A = RECORD nt : PA END;
  B = RECORD (A) z : PC; next : PB END;

  C = ARRAY 3 OF PB;

  PB = POINTER TO B;

VAR
  p : PA;

BEGIN
  NEW(p);
  p.nt := NIL;
END Test21.

Тест определений наперёд.