Удалить сведения о багаже, общий вес вещей в котором меньше, чем 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.

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);                            //открываем файл 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);                               //открываем файл g для чтения
rewrite(f);                             //а файл 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.