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