Программирование, Т-11038

написать решение в паскаль

type reals = file of real;

Описать процедуру p(f,g,h) от трех файлов типа reals, которая

переписывает из файла f в непустой файл g все элементы,

меньшие среднего арифметического всех элементов файла f,

и в непустой файл h записывает все остальные числа.

Указание: введите файл f (последний элемент = 0). Выполните процедуру p(f,g,h). Распечатайте файлы g и h.

Срок в заказе указан условно. Просьба при оценке указывать свой срок выполнения.