Новое задаение-новая проблкма ><

[shalgan]

Вот код

program Project2;
type
rec=record
nomerreisa:string[2];
punktnaznacheniya:string[12];
vremyavileta:string[6];
vremyapribitiya:string[6];
kolichsvobmest:string[6];
end;
var
v:rec;
f:text;
x:string[12];
begin
writeln('Vvedite gorod X');
readln(x);
assignfile(f,'f1.txt');
reset(f);
writeln('vvedite punktnaznacheniya');
readln(x);
while not eof(f) do
begin
readln(f,v.nomerreisa,v.punktnaznacheniya,v.vremyavileta,v.vremyapribitiya,v.kolichsvobmest);
if v.punktnaznacheniya=x then begin
writeln('vremya vileta ',v.vremyavileta);
end;
closefile(f);
 Readln;
 end;
end.

Программа открывается,и после "введите город Х" закрывается, в чем может быть проблема? в прошлой задаче была проблема в указании путии к файлу, но здесь задача должна открыть уже файл. вот задание

А. Создать файл, содержащий сведения о наличии билетов и рейсах Аэрофлота. Структура записи: номер рейса, пункт назначения, время вылета, время прибытия, количество свободных мест в салоне. Количество записей произвольное.

Б. Написать программу, выдающую информацию следующего вида :
- время отправления самолетов в город X.

Делфи7

[ZX Spectrum-128]

Волшебные кнопки f7,f8 ничего не сказали?

[shalgan]

Сообщение от ZX Spectrum-128

Волшебные кнопки f7,f8 ничего не сказали?

не-а, может быть что-то свзанно с файлом?Может вместо

assignfile(f,'f1.txt');

что-то другое нужно?

[Stilet]

здесь задача должна открыть уже файл

Да ладно...
Раз не умеешь трассировать программу - мучайся.
Для начала пропиши полный путь к файлу. Потом видно будет.