Подсчитать среднее арифметическое всех компонентов файла - Pascal

Формулировка задачи:

1. Составить программу, выполняющую заполнение файла 20 числами из диапазона от -35 до 15. Вывести их на экран. Подсчитать среднее арифметическое всех компонентов. 2. Составить программу, которая позволяет определять количество символов в указанном текстовом файле. Помогите пожалуйста написать программы, очень прошу))

Решение задачи: «Подсчитать среднее арифметическое всех компонентов файла»

Листинг программы

 const
    nMax = 20;
 
var
    f: file of integer;
    n, v,sum: integer;
    
begin
    assign(f, '1.dat');
    rewrite(f);
    randomize;
    for n := 1 to nMax do
    begin
        v := 15 - random(51);
        write(f, v);
    end;
    close(f);
    reset(f);   
     writeln('Содержимое  файла :');
    while not EoF(f) do
    begin
        read(f, v);
        writeln(v);
        sum:=sum+v;
    end;
    writeln('Среднее арифметическое файла =', sum/nMax);
end.

Объяснение кода листинга программы

Константы:
- nMax = 20 - максимальное количество компонентов файла.
Переменные:
- f = file of integer; файл, в котором будут храниться числа.
- n = переменная для контроля количества чисел.
- v = переменная для хранения текущего числа.
- sum = переменная для хранения суммы всех чисел.
Создание файла:
- assign(f, '1.dat'); задаем имя файла, в который будем записывать числа.
- rewrite(f); очищаем файл перед записью чисел.
Генерация случайных чисел:
- randomize; инициализируем генератор случайных чисел.
- for n := 1 to nMax do
- begin
- v := 15 - random(51); генерируем случайное число от 15 до 50.
- write(f, v); записываем число в файл.
- end;
Закрытие файла:
- close(f); закрываем файл после записи всех чисел.
Чтение содержимого файла:
- reset(f); перезапускаем файл для чтения.
- while not EoF(f) do
- begin
- read(f, v); читаем число из файла.
- writeln(v); выводим число на экран.
- sum:=sum+v; суммируем все числа.
- end;
Вычисление среднего арифметического:
- writeln('Среднее арифметическое файла =', sum/nMax); выводим среднее арифметическое на экран.