Конструирование файлов с элементами сложной структуры

[andrey_b]

Помогите, пожалуйста, люди добрые, кому не сложна

Создать файл записей. Программу оформить с помощью меню, включающего:

Создание Печать Обработка Корректировка Выход
Расширение
Замена записи
Замена полей записи
Удаление записи
Выход в основное меню

Запись содержит сведения о наличии товаров в магазинах г.Гомеля.
Структура записи: Номер магазина;
Количество ед. товара;
Название товара;
Цена одной единицы;
Дата учета.
Распечатать список магазинов, имеющих заданный товар на общую сумму более 900 млн. руб.
Исходные данные и результаты выводить в виде таблицы.

[ZX Spectrum-128]

Структура записи: Номер магазина;
Количество ед. товара;
Название товара;
Цена одной единицы;

Часть первая - заполнение базы данных

Type
  Magaz=record
    Nomer:integer;
    Kol:integer;
    Nazv:string;
    Cena:real; // в рублях
  End;
Var
   Rm:magaz;
   F: file of magaz;
   N,i:integer;
Begin
   Assign(f,'magazin.dat');
   Rewrite(f);
   Writeln('Введите количество магазинов:');
    Readln(n);
    For i:=1 to n do
       Begin
          rm.nomer:=i;
          Readln(rm.nazv);
          Readln(rm.kol);
          Readln(rm.cena);
        
      Write(f,rm);
     End;
  Close(f);
...
End.