Составьте файл на наличие рейсов и билетов аэрофлота

uses crt;
type a1=record
     nom:integer;
     punkt:string[20];
     time:string[5]; {char -eto 1 simvol}
     time_prib:string[5]; {12:50}
     svob_mest:integer;
     end;
var a:a1;
    fa: file of a1;
    c:char;
    x:string[20];{gorod}
    y:string[5];{cvremya}
    k:byte;
begin
clrscr;
assign(fa,'airport');
rewrite(fa);
writeln('Sozdanie faila:');
repeat
with a do
 begin
  write('nomer reisa:  ');readln(a.nom);
  write('punkt naznachenia:  ');readln(a.punkt);
  write('vremya vileta:  ');readln(a.time);
  write('vremya pribitiya:  ');readln(a.time_prib);
  write('kol-vo svobodnih mest:  ');readln(a.svob_mest);
  write(fa,a);
 end;
c:=readkey;
until c=#27;
 
repeat
clrscr;
writeln;
writeln('Zapros:');
writeln('1 - Svedenya o vyletah rejsov');
writeln('2 - Svedenya o nalichii svobodnyh mest');
 repeat
  readln(c);
 until c in['1','2'];
if c='1' then
  begin
   clrscr;
   writeln;
   writeln('Svedenya o vyletah rejsov:');
   repeat
   reset(fa);
   writeln;
   write('Vvedite nazvanie goroda:  ');
   readln(x);
   writeln('Vremya vyleta v gorod ',x,':');
   k:=0;
   while not eof(fa) do
     begin
       read(fa,a);
       if a.punkt=x then
         begin
           writeln(a.time);
           k:=1;
         end;
     end;
   if k=0 then writeln('V gorod ',x,' rejsov net!');
   writeln;
   writeln('Prodolzit? y/Y - da, n/N - net');
   readln(c);
   c:=upcase(c);
   close(fa);
   until c='N';
 end
else if c='2' then
 begin
   writeln;
   writeln('Svedenya o nalichii svobodnyh mest:');
   repeat
   clrscr;
   reset(fa);
   writeln;
   write('Gorod:  ');readln(x);
   write('Vremya vyleta:  ');readln(y);
   k:=0;
   while not eof(fa) do
     begin
       read(fa,a);
       if (a.punkt=x)and(a.time=y) then
         begin
           writeln('Svobodnyh mest=',a.svob_mest);
           k:=1;
         end;
     end;
   if k=0 then writeln('Takogo rejsa net!');
   writeln;
   writeln('Prodolzit? y/Y - da, n/N - net');
   readln(c);
   c:=upcase(c);
   close(fa);
   until c='N';
 end;
writeln;
writeln('Novyj zapros? y/Y - da, n/N - net');
readln(c);
c:=upcase(c);
until c='N';
readkey
end.