Corrected wrong usage of records in "calendar.prog"