[fpc-pascal] Linked list constant

[Martin Schreiber]

Hi,
I need to build linked list constants, something like
"
type
 pbty = ^bty;
 
 aty = record
  b: pbty;
 end;
 paty = ^aty;
 
 bty = record
  a: paty;
 end;
 
const
 b0: bty = (a: @a0); //Error: Identifier not found "a0"
 a0: aty = (b: @b0); 
"
Is it possible to make a forward declaration for a0?

Martin