type A is record
   X : Integer;
end;
