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

[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.

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

[PUMA]

а N для чего нужна? что это такое?
P.S:уточнить задачу не получится,наверное...я ее никуда не записала.это было на экзамене

Добавлено через 8 мин.
выводит ошибку №2,фаил не найден

var r,n,n1,r1:integer;
f:text;
begin
Write('vvedite nomer reisa: ');
ReadLn®;
Assign(f,'D:\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('na reise ',r,' est ',n,' svobodnih mest')
else
  WriteLn('na reise',r,' net svobodnih mest');
  readln;
  end.