Составить программу, которая формирует файл записей

type
  Str20 = String[20];
  tSotr = record
    Fam,Imq,Otch : Str20;
    god : word;
    Adres : string;
    Spec : Str20;  //лучше было бы задать цифрой (Byte) и дать список специальностей для выбора
    Stav : Byte;
  end;
var
  f : file of tSotr;
  S : tSotr;
  N,i : word;
  sp : Str20;
  sr : real;
Begin
  write('Chislo sotrudn : '); readln(n);
  writeln('     WWOD BAZY :');
  assign(f,'sotr.dat'); rewrite(f);
  for i:=1 to n do begin  // контроля за вводом нет, так что все на совести вводящего
    writeln; writeln(i:3,' sotrudnik:');
    write('Familiq : '); Readln(s.fam);
    write('imq : '); readln(s.imq);
    write('otchestwo : '); readln(s.otch);
    write('god : '); readln(s.god);
    write('adress : '); readln(s.adres);
    write('specialnost : '); readln(s.spec);
    write('stav : '); readln(s.stav);
    write(f,s)
  end;
  close(f);
  writeln('-------wwod okonchen-----------');
  writeln('sformirow file "sotr.dat" .'); writeln;
 
  write('wwedite specialxnoxt : '); readln(sp);  // вводить точно так же, как при заполнении анкеты
  reset(f); i:=0; sr:=0;
  while not eof(f) do begin
    read(f,s);
    if s.spec=sp then begin inc(i); sr:=sr+2012-s.god; end;
  end;
  close(f);
  if i=0 then writeln('net zapisey po specialxnosti') else begin
    sr:=sr/i; writeln(i,' sotrudnikow, sredniq wozrast ',sr:0:2);
  end;
  readln;
End.