1*44113Sbosticmodule main; 2*44113Sbostictype 3*44113Sbostic Color = (RED, BLUE, GREEN); 4*44113Sbosticvar 5*44113Sbostic a : dynarray of array of integer; 6*44113Sbostic i, j : integer; 7*44113Sbostic 8*44113Sbosticprocedure p (i : integer; var a : array of array of integer; j : integer); 9*44113Sbosticbegin 10*44113Sbostic a[3, 1] := i; 11*44113Sbostic a[4, 2] := j; 12*44113Sbosticend p; 13*44113Sbostic 14*44113Sbosticbegin 15*44113Sbostic new(a, 10, 5); 16*44113Sbostic for i := 0 to 9 do 17*44113Sbostic for j := 0 to 4 do 18*44113Sbostic a^[i, j] := i; 19*44113Sbostic end; 20*44113Sbostic end; 21*44113Sbostic p(4, a^, 5); 22*44113Sbosticend main. 23