Сформировать типизированный файл, содержащие действительные числа. Вычислить среднее арифметическое этих чисел - Pascal

Сформировать типизированный файл ,содержащие действительные числа.Вычислить среднее арифметическое этих чисел

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

type numbers=record
 f:real;end;

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

Объявляется тип записи numbers с полем f типа real.
Создается пустой файл с помощью функции Create и открывается для записи с помощью функции Open.
Записывается заголовок 20 real в файл с помощью функции Write.
Создается цикл, который выполняется 20 раз.
В каждой итерации цикла создается переменная n типа numbers, и ее поле f присваивается случайному значению в диапазоне от 0 до 1000.
Переменная n записывается в файл с помощью функции Write.
После завершения цикла, файл закрывается с помощью функции Close.
Вычисляется среднее арифметическое всех чисел в файле путем чтения их из файла и суммирования.
Выводится результат на экран с помощью функции Show.