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