MODULE Main;

VAR
  x := ARRAY [1..10] OF CHAR {};
  y := ARRAY OF CHAR {};

BEGIN
  EVAL x;
  EVAL y;
END Main.