type TRec = record a : TRec; end; begin end.