1module main; 2var p : pointer to array [1..10] of integer; 3 i : integer; 4begin 5 new(p); 6 for i := 1 to 10 do 7 p^[i] := i; 8 end; 9end main. 10