type months = (January, February, March, April, May, June, July, August, September, October, November, December); Var m: months; ... M := January;