Структура: удалить сведения о багаже, общий вес вещей в котором меньше 10 кг

 uses crt;
 const line='----------------------------------';
       shap='|  №  |   Кол-во   |     Вес     |';
 type bagazh=record
      kol: integer;
      ves: real;
      end;
 
 var b: bagazh;
     f,g: file of bagazh;
     i,n,r: integer;
 
begin
assign(g, 'C:\bagazhin.dat');
assign(f, 'C:\bagazhout.dat');
rewrite(g);
write('Количество пассажиров: ');
readln(n);
for i:=1 to n do
with b do
     begin
     writeln('Багаж № ',i);
     write('Количество вещей: ');
     readln(kol);
     write('Общий вес: ');
     readln(ves);
     write(g,b);
     end;
close(g);
reset(g);
rewrite(f);
while not eof(g) do
      begin
      read(g,b);
      if not (b.ves<10) then write(f,b);
      end;
writeln('Данные о багаже весом менее 10 кг удалены');
repeat
writeln('0 - закончить работу');
writeln('1 - вывести исходные данные');
writeln('2 - вывести данные после удаления');
readln(r);
clrscr;
if r=1 then
   begin
   reset(g);
   i:=0;
   while not eof(g) do
      begin
      inc(i);
      if i=1 then
         begin
         writeln(line);
         writeln(shap);
         end;
      writeln(line);
      read(g,b);
      with b do
      writeln('|',i:3,'|':3,kol:7,'|':6,ves:10:2,'|':4);
      end;
   writeln(line);
   end;
if r=2 then
   begin
   reset(f);
   i:=0;
   while not eof(f) do
      begin
      inc(i);
      if i=1 then
         begin
         writeln(line);
         writeln(shap);
         end;
      writeln(line);
      read(f,b);
      with b do
      writeln('|',i:3,'|':3,kol:7,'|':6,ves:10:2,'|':4);
      end;
   writeln(line);
   end;
until (r<>1) and (r<>2);
close (g);
close (f);
end.