Составить программу, выдающую справку о номерах рейсов самолётов

uses crt;type
race=record
time,emp,mode:byte;end;
city=record
name:string;num:array[1..2]of byte;end;
var f1:file of race;r:array[1..20]of race;
f2:file of city;c:array[1..10]of city;i,n:byte;
procedure cr_f_race(name:string);var i:byte;tmp:race;begin
assign(f1,name);rewrite(f1);randomize;for i:=1 to 20 do begin
tmp.time:=i;tmp.mode:=(i mod 3)+1;tmp.emp:=i*(random(3)+1);
write(f1,tmp);end;close(f1);end;
procedure cr_f_city(name:string);var i:byte;tmp:city;begin
assign(f2,name);rewrite(f2);for i:=1 to 10 do begin
case i of 1:tmp.name:='New York';2:tmp.name:='Old York';
3:tmp.name:='Los Angeles';4:tmp.name:='Virgin';
5:tmp.name:='Maxica';6:tmp.name:='Moscow';7:tmp.name:='Dublin';
8:tmp.name:='Mayami';9:tmp.name:='Texas';10:tmp.name:='st. PeterB';end;
tmp.num[1]:=i*2-1;tmp.num[2]:=i*2;write(f2,tmp);end;close(f2);end;
begin clrscr;cr_f_race('race.dat');reset(f1);
for i:=1 to 20 do read(f1,r[i]);close(f1);
cr_f_city('city.dat');reset(f2);
for i:=1 to 10 do read(f2,c[i]);close(f2);
for i:=1 to 10 do writeln('City: ',c[i].name,'; Races: ',
c[i].num[1],' ',c[i].num[2]);writeln('Exit: 0');repeat
write('Number: ');readln(n);if(n<1)or(n>20)then writeln('Error!') else
begin writeln('Race #',n);writeln('Time: ',r[n].time);
writeln('Mode: ',r[n].mode);writeln('Empty Places: ',r[n].emp);
if r[n].emp>0 then dec(r[n].emp);end;until n=0;end.