begin comment record objects assignment; record Point (integer x, y); reference(Point) pt; x(pt) := 1; end.