Паскаль. Сформировать файл, компонентами которого является массив и найти среднее геометрическое его элементов

я написала уже эту программу, она не хочет вычислять среднее геометрическое.. останавливается и закрывается..