Pascal - Из списка мероприятий вывести только те, которые будут проходить в указанный день недели