Получить список сотрудников пенсионного возраста на сегодняшний день с указанием стажа работы

Uses CRT, WinDos;
 
type
  sotrud = record
    god_roz, staz, oklad: integer;
    kaf, dolz, famil: string[250];
  end;
 
const
  pensvoz=56;
 
var
  f: file of sotrud;
  x: sotrud;
  n, a, kol,count,s: integer;
  AYear,AMonth,ADay,Dow:word;
  nameofkaf:string;
 
begin
  assign(f, 'base.zap');
  writeln('nov_sotrud=1, dopisat=2');
  readln(a);
  if a = 1 then rewrite(f)
  else
  begin
    reset(f);
    seek(f, filesize(f));
  end;
  writeln('vvedite kol sotrud');
  readln(kol);
  for n := 1 to kol do
  begin
    writeln(n, ' SOTRUD');
    with x do 
    begin
      writeln('vvedite famil:');
      readln(famil);
      writeln('vvedite kaf:');
      readln(kaf);
      writeln('vvedite god_roz:');
      readln(god_roz);
      writeln('vvedite staz:');
      readln(staz);
      writeln('vvedite dolz:');
      readln(dolz);
      writeln('vvedite oklad:');
      readln(oklad);
    end;
    write(f, x);
  end;
  close(f);
  GetDate(AYear,AMonth,ADay, Dow);
  Writeln('Sotrudniki pensionnogo vozrasta (staz):');
  reset(f);
  while not Eof(F)  do
  begin
    read(f, x);
    if AYear-x.god_roz>=pensvoz then
      writeln(x.famil,' (',x.staz,' let)');
  end;
  close(f);
  writeln('Vvedite nazvanie kafedri:');
  readln(nameofkaf);
  s:=0;
  count:=0;
  reset(f);
  while not Eof(F)  do
  begin
    read(f, x);
    if x.kaf=nameofkaf then
    begin
      s:=s+x.staz;
      inc(count);
    end;
  end;
  close(f);
  if count=0 then
    writeln('Net takoi kafedri')
  else
    writeln('Srednii staz na kagerde ',nameofkaf,': ',s/count:0:3,' let');
  readln;
end.