Для хранения данных о цветных планшетных сканерах описать структуру вида: struct scan_info{
char model[25]; // наименование модели
int price; // цена
Double x_size; // горизонтальный размер области сканирования
Double y_size; // вертикальный размер области сканирования
int optr; // оптическое разрешение
int grey; // число градаций серого
};
Написать функцию, которая записывает данные о сканере из приведенной структуры в требуемую позицию в бинарном файле. Структура файла: в первых двух байтах размещается значение типа int, определяющее количество сделанных в файл записей; далее без пропусков размещаются записи о сканерах. Запись может осуществляться в любую позицию, причем если между вводимой записью и последней (или началом файла) имеются пропуски, они заполняются нулями.
Написать функцию, которая «уплотняет» описанный выше бинарный файл путем удаления из него записей, содержащих все нули.
Привести пример программы, создающей файл с данными о сканерах (данные вводятся с клавиатуры) из не менее шести записей и осуществляющий его уплотнение.
Все необходимые данные для функций должны передаваться им в качестве параметров. Использование глобальных переменных в функциях не допускается.

Пожалуйста напишите текст программы на delphi. Заранее спасибо!!!!