Оформить сведения о каждом родственнике в виде записи

program lab7_1;
uses crt;
type fam=record
fio:string[40];
gr:1990..2005;
strod:string[30];
gorodp:string[30];
vozrast:0..100;
rabota:string[30];
end;
 var f:file of fam;
 f1:fam;
 n,i:integer;
 s:real;
 begin clrscr;
 writeln('Программа анкетные данные родтвиников');
 assign(f,'f:\family.txt');
 rewrite(f);
 writeln('Введите количество родствеников');
 readln(n);
 for i:=1 to n do
  begin
  Writeln('Введите Ф.И.О');
  readln(f1.fio);
  writeln('Ведите год рождения');
  readln(f1.gr);
  writeln('Степень родства');
  readln(f1.strod);
  Writeln('Введите город проживания');
  readln(f1.gorodp);
  writeln('Работа');
  readln(f1.rabota);
  f1.vozrast:=2009-f1.gr;
  seek(f,i-1);
  write(f,f1);
  clrscr;
  end;
  clrscr;
  Writeln('Сведение о семье');
  for i:=1 to n do
  begin
  seek(f,i-1);
  read(f,f1);
  Writeln('Фамилия:',f1.fio);
  writeln('Степень родства:',f1.strod);
  writeln('Город проживания:',f1.gorodp);
  Writeln('Возраст:',f1.vozrast);
  writeln('Работа:',f1.rabota);
  s:=s+f1.vozrast;
  end;
  readln;
  s:=s/n;
  clrscr;
  Writeln('Средней возраст',s:4:0);
  writeln('Члены семьи с возростом ниже среднего:');
  for i:=1 to n do
   begin
   seek(f,i-1);
   read(f,F1);
   if  f1.vozrast<s then
   begin
   writeln('Фамилия:',f1.fio);
   writeln('Степень родства:',f1.strod);
   writeln('Город проживания:',f1.gorodp);
   writeln('Возраст:',f1.vozrast);
   writeln('Работа:',f1.rabota);
   end;
   end;
   close(f);
   readln;
   end.

  seek(f,i-1);
  write(f,f1);