Задача на файлы Опции

[SeRGuSii]

Дан файл содержащий: номер рейса, пункт отправления, пункт прибытия, клас билета, цена, время в пути, тип самолета, название авиакомпании, найти кол-во и занести в файл название пункт отправления в зад город при цене билета от 2000-2500 тыс руб.

 
uses crt;
type fly=record
      number:integer;
      departure:char;
      arrive:char;
      class:integer;
      price:integer;
      time:real;
      typeS:char;
      airline:char;
    end;
Var f: file of fly;
    l: text;
    t:fly;
    s:char;
    c:integer;
begin
     clrscr;
 assign(f,'reic');
 rewrite(f);
 assign(l,'air.txt');
 rewrite(l);
  repeat
        write('y/n: ',' ');
        readln (s);
   if s='y' then
    begin
     write('номер'); readln(t.number);
     write('отпр'); readln(t.departure);
     write('прибытие'); readln(t.arrive);
     write('класс '); readln(t.class);
     write('цена '); readln(t.price);
     write('время'); readln(t.time);
     write('тип '); readln(t.types);
     write('авиакомп'); readln(t.airline);
     write(f,t);
    end;
  until s='n';
  close(f);
  reset(f);
  seek(f,0);
 while not(eof(f)) do
  begin
   read(f,t);
    if (t.price>2000)and(t.price<2500) then
    begin
     inc©;
     write(l,t.departure);
    end;
   end;
 close(f);
 close(l);
 writeln ('кол-во: ',c);
end.

.
Что не так ? Говорит файл не открыт

Сообщение отредактировано: SeRGuSii - 1.06.2005 0:16