VAR char: CHAR := 'a';