begin
comment generation of RPoint objects array;
	record RPoint (real x, y);
	reference(RPoint) array pt(1::10);
	integer n, i;
	
	n:=10;
	for i:=1 until n do pt(i) := RPoint(0,0);
	
end.