type PRec = ^TRec;

type TRec = record a : integer; end;

begin
end.