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

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

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