задача на типизированный файл!!

program xxx;
type
 ggg = record
  n:string[40];
  c:integer;
  w:real;
 end;
var
 f:file of ggg;
 g:ggg;
 a:array[1..200]of ggg;
 i:real;
 n:integer;
 t,c:byte;
begin
 writeln('Введите максимальный вес');
 readln(i);
 assign(f,'Bagazh');
 reset(f);
 while not (EOF(F)) do begin
  read(f,g);
  c:=c+1;
  a[c]:=g;
  if g.w>i then writeln(f.n);
 end;
 close(f);
 readln;
 writeln('Хотите изменить данные? Если да, введите 1. Если нет, то любую цифру');
 readln(t);
 if t=1 then begin
  for n:=1 to c do begin
   writeln('Будете изменять данные пассажира "',a[n].n,'"?');
   writeln('Введите "1" если да, др. - если нет.');
   readln(t);
   if t=1 then begin
    write('Фамилия: ');
    readln(g.n);
    write('Кол-во вещей: ');
    readln(g.c);
    write('Вес багажа: ');
    readln(g.w);
    a[n]:=g;
    writeln('Данные изменены.');
    readln;
   end;
  end;
  rewrite(f);
  for n:=1 to c do write(f,a[n]);
  close(f);
 end;
 readln;
end.

program xxx;
type
 ggg = record
  n:string[40];
  c:integer;
  w:real;
 end;
var
 f:file of ggg;
 i,k:integer;
 g:ggg;
begin
 assign(f,'bagazh');
 writeln('Введите кол-во пассажиров');
 readln(k);
 rewrite(f);
 foe i:=1 to k do begin
  write('Фамилия: ');
  readln(g.n);
  write('Кол-во вещей: ');
  readln(g.c);
  write('Вес багажа: ');
  readln(g.w);
  write(f,g);
  readln;
 end;
 close(f);
end.