Запись A ссылается на B, B ссылается на A, как разрулить? Опции

[TarasBer]

Странно, что только сейчас это стало проблемой.

type
  PPoint = ^TPoint;
  PLink = ^TLink; // Undeclared identifier: TLink;

  TPoint = record
    x,y: integer;
    border: boolean;
    lnk: array [0..7] of PLink;
  end;

  type TLink = record // Identifier redeclared: TLink;
    p1,p2: PPoint;
  end;

[IUnknown]

type
  PPoint = ^TPoint;
  PLink = ^TLink; // Undeclared identifier: TLink;

  TPoint = record
    x,y: integer;
    border: boolean;
    lnk: array [0..7] of PLink;
  end;

  (*type*) TLink = record // Ok
    p1,p2: PPoint;
  end;

Опережающие описания допустимы только в пределах в одной секции Type...