Задача на использование файлов и записей

[Alt+F4]

Завтра зачёт получать, поэтому помогите пожалуйста исправить ошибку в задаче :

Создать файл, содержащий сведения о наличии билетов и рейсов Аэрофлота.

Структура записи:
-Номер рейса;
-Пункт назначения;
-Время вылета;
-Количество свободных мест в салоне.
Количество записей произвольное.

Написать программу, выдающую следующую информацию:
-Время вылета рейса Y;
-Наличие свободных мест на рейс Х.
Значение Х и Y ввести с клавиатуры.

Вот код программы :

Uses CRT;
const name='fail.txt';
type zapis=record
nom,time,kol:integer;
pynct:char;
end;

Var f:file of zapis;
baze:zapis;
n,i:integer;
begin
blrscr;
assign(f,name);
rewrite(f);
write('vvedite kol-vo zapisei:');
readln(n);
for i:=1 to n do begin
write('vvedite nomer reisa:');
readln(baze.nom);
write('vvedite pynkt naznachenia:');
readln(baze.pynct);
write('vvedite vrema vileta*:');
readln(baze.time);
write('vvedite kol-vo svobodnix mest:');
readln(baze.kol);
writeln;
end;

close(f);
write('vvedite nomer reisa dliz poiska:');
readln(n);
reset(f);
while baze.nom<>n do
read(f,baze);

writeln('vremia vileta ',baze.time,' reisa №' ,baze.nom);
writeln('na reise № ',baze.nom,' ostalos ',baze.kol,' svobodnix mest.');
readln;
close(f);
end.

Главный глюк в том, что при попытке вывести информацию из первой записи вылетает ошибка. Ну если ещё есть какие-то ошибки исправьте пожалуйста. В заранее благодарен.

[Tirendus]

blrscr;

может blrscr барахлит? )

[Alt+F4]

Нет просто когда я вставлял код программы, приводил его немного в более удобный вид, видимо по-случайности нажал не туда.

[__STDC__]

хм.. конечно.. вы из пустого файла что ли считываете? а пункт задается одним символом?

[Alt+F4]

Почему из пустого? объясните если можно. Пункт задаётся одним словом.

[__STDC__]

1. Т. е. вы в переменной типа char храните массив char'ов? =) Похвально.
2. Ну потому что в файл ничего не записывается... В программе нету инструкций записи в файл (вида write(f,variable));

[Alt+F4]

Всё, поковырял, вроде работает. Спасибо за коментарии.

[__STDC__]

Сообщение от Alt+F4

Всё, поковырял, вроде работает. Спасибо за коментарии.

надеюсь char вы все-таки исправили на string =) ну раз все работает - рад за вас) тем более рад, что сами сделали, а не просили все за вас)