type TRec = record
a : integer;
end;

type TRec2 = record(TRec)
end;
    
begin

end.