Запись в файл Опции

[PUMA]

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

var r:byte;
f:text;
begin
writeln('vvedite nomer reisa');
readln®;
assign(f,'C:\mesta.txt');
rewrite(f);
case r of
1:writeln('svobonih mest 5');
2:writeln('svobonih mest 4');
3:writeln('svobonih mest 8');
4:writeln('svobonih mest 3');
5:writeln('svobonih mest 6');
else writeln('na dannom reise net svobodnih mest');
read;
end;
write;
read®;
begin
write(f,r);
close(f);
end;
end.

у меня получилось только внести в файл номер рейса подскажите пожалуйста как сделать так ,чтобы в текстовом файле были номера рейсов и кол-во свободных мест

[Lapp]

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

Мне почему-то кажется, что смысл не в создании файла программно, а в выдаче инфы по нему. То есть, файл ты можешь создать, например, в Блокноте, назови его типа "flight_info.txt", а внутренности набери типа так:

567 5
768 3
843 10
123 0
234 2
987 25

(учти, что ни в начале, ни в конце файла не должно быть пустых строк!!)
Тогда твоя прога будет примерно такой:

Write('введите номер рейса: ');
ReadLn®;
Assign(f,'flight_info.txt);
n:=-1;
Reset(f);
while not EoF(f) and (n<0) do begin
  ReadLn(f,r1,n1);
  if r=r1 then n:=n1
end;
Close(f);
if n>=0 then
  WriteLn('на рейсе ',r,' есть ',n,' свободных мест')
else
  WriteLn('рейс ',r,' не найден');

Но ты лучше все-таки уточни задание, чтоб не гадать ). Но делать выбор рейса в операторе case - это в любом случае неправильно..