t_bad_array.mod 83 B

12345
  1. MODULE TBadArr;
  2. VAR a : ARRAY OF INTEGER; x : INTEGER;
  3. BEGIN
  4. x := 1
  5. END TBadArr.