Задача в Pascal

нужно было решить задачу (условия в первом приложении).
решение сделали (во втором приложении).
но к нему есть замечания:

У нас есть виды спорта: лыжи, коньки, хоккей, футбол, регби, самбо. Вид спорта будет у нас множеством, т.е. слову Футбол задаём значение: во всех группах, регби: во всех группах. Это выглядит так:
Футбол: во всех группах;
Регби: во всех группах;
Самбо: во всех группах;
Лыжи: во всех группах;
Коньки: во всех группах;
Хоккей: хотя бы в одной группе;
И при компиляции мы ничего не должны вводить с клавиатуры, нам должно всё выводиться на экран.
Программа должна быть написана с помощью типизированных констант