Программа

PROCEDURE MakeAirLiner(var F:AirLinerFile);
  Var i:1..QuantityLine; { Счетчик рядов }
      Buf:Line;  { Ряд }
  Begin
    for i:=1 to QuantityPlace do Buf[i]:='   '; { Определение значений мест ряда }
    Assign(F,'DATA');  { Связывание файловой переменной с именем файла }
    Rewrite(F);  { Открытие файла }
    for i:=1 to QuantityLine do { Цикл создания файла }
      Write(F,Buf);  { Запись пустого ряда в файл }
    Close(F) { Закрытие файла }
  End;