Помогите решить задачу на паскале по файлам

[Арсенал]

нужно создать файл F, заполненный целыми числами из диапазона [1;100].Вместо первого десятка элементов файла, в тот же файл записать их среднее арифметическое(если среднее арифм. не целое число то округлить), вместо второго десятка - их среднее арифметическое, и.т.д. К-во элементов файла F может не делиться нацело на 10 поэтому последнее среднее арифметическое необходимо вычислить из оставшихся элементов файла
пример. первонач. файл :2,1,0,3,5,2,5,2,7,6,3,5,8,9,1
3,5
2. Вычислить контрольную сумму полученого файла F, открыв его заново как нетипизированный
нельзя заводить вспомогательные файлы и массивы.*

[Хыиуду]

Файл текстовый, типизированный? Если текстовый - то пример первоначального файла неверен, число 210352527635891 явно больше 100. Как должна расчитываться контрольная сумма?

[Арсенал]

все исправил

[Хыиуду]

Читаем из файла строку до запятой, переводим строку в число, увеличиваем счетчик на 1, суммируем число с переменной-аккумулятором. Если счетчик=10 или конец файла - записать в массив результатов аккумулятор/счетчик. Обнуляем обе переменные, продолжаем читать.
Дошли до конца файла - закрываем его, открываем для записи, выводим массив результатов в этот же файл.