файл произвольного доступа содержит структуры описывающие прямоугольники.
структура содержит: ширина и высота прямоугольника, процедура ввода, функция вычисления площади прямоугольника, функция формирования строки.

модуль: процедура создания файла структур,
процедура вывода файла структур в листбокс, функция нахождения средней площади всех прямоугольников,
процедура сортировки в файле прямоугольников по убыванию их площадей,
процедура формирующая файл прямоугольников с площадью меньше "P",
процедура добавляющая в конец файла несколько прямоугольников.

в основной программе создать меню с кнопками, демонстрирующими работу процедур модуля.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.