[Страдалецъ]

У вас изначально 5 факультетов и 7 групп в каждом, т.е. массив [1..5,1..7]
а обращаетесь вы наоборот:

Код:

 if prepod[n].spisok_grupp[gr,k]

вот и ошибка выхода за диапазон.