Listing: 1 MODULE TBadArr; 2 VAR a : ARRAY [1 .. 10] OF INTEGER; x : INTEGER; ***** ^ not supported in this phase 3 BEGIN 4 x := 1; 5 a[x] := 5 ***** ^ not supported in this phase ***** ^ not supported in this phase 6 END TBadArr. 3 errors
