дописать пункт в)

Осталось только в)
Создать типизированный файл reis.dat, содержащий сведения об авиарейсах:
- номер рейса;
- пункт вылета;
- пункт прилета;
- тип самолета;
а) обеспечить просмотр содержимого файла в табличной форме;
б) вывести сведения о рейсах по заданному пункту прилета;
в) Необходимо удалить из файла информацию о рейсе с заданным номером.
program prog;
type reis=record
nomer:integer; {nomer samoleta}
vilet:string; {punkt vileta}
prilet:string; {punkt prileta}
samolet:string; {tip samoleta}
end;
var
a:reis;
i,n,max,k:integer;
f:file of reis;
name,p:string;
key:boolean;
begin
writeln ('vvedite kol-vo samoletov');
readln(n);
writeln('vvedite file name');
readln(name);
assign(f,name+'.dat');
rewrite(f);
for i:=1 to n do
begin
with a do {вводим данные по полям}
begin
writeln ('vvedite nomer samoleta');
readln(nomer);
writeln('vvedite punkt vileta');
readln(vilet);
writeln('vvedite punkt prileta');
readln(prilet);
writeln('tip samoleta');
readln(samolet);
end;
write(f,a);
end;
close(f);
reset(f);
writeln ('___________________________');
while not eof(f) do
begin
read(f,a);
with a do
begin
write ('nomer samoleta: ');
writeln(nomer);
write('punkt vileta: ');
writeln(vilet);
write('punkt prileta: ');
writeln(prilet);
write('tip samoleta: ');
writeln(samolet);
end;
writeln ('___________________________');
end;
close(f);
writeln;
reset(f);
writeln('poisk po punktu prileta');
writeln('vvedite punkt prileta');
readln(p);
writeln ('spisok samoletov pribitix v punkt ',p,':');
writeln ('___________________________');
key:=false;
while not eof(f) do
begin
read(f,a);
with a do
begin
if p=prilet then
begin
write ('nomer samoleta: ');
writeln(nomer);
write('punkt vileta: ');
writeln(vilet);
write('tip samoleta: ');
writeln(samolet);
writeln ('___________________________');
key:=true;
end;
end;
end;
close(f);
writeln;
if not key then writeln('takih samoletov net');
readln;
end.

0