1*9fb54529Sbosticmodule main; 2*9fb54529Sbosticvar p : pointer to array [1..10] of integer; 3*9fb54529Sbostic i : integer; 4*9fb54529Sbosticbegin 5*9fb54529Sbostic new(p); 6*9fb54529Sbostic for i := 1 to 10 do 7*9fb54529Sbostic p^[i] := i; 8*9fb54529Sbostic end; 9*9fb54529Sbosticend main. 10