1*44127Sbosticmodule main; 2*44127Sbosticvar p : pointer to array [1..10] of integer; 3*44127Sbostic i : integer; 4*44127Sbosticbegin 5*44127Sbostic new(p); 6*44127Sbostic for i := 1 to 10 do 7*44127Sbostic p^[i] := i; 8*44127Sbostic end; 9*44127Sbosticend main. 10