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