program Z_7;

type
 rabotnik_predpriyatiya=record
 fam:string[15];
 name:string[10];
 dolzh:string[15];
 stazh:integer;
 zar:integer;
end;

 var
  rp:file of rabotnik_predpriyatiya;
  v:rabotnik_predpriyatiya;
  i,sr:integer;
  fff:string;

  begin
   Assign(rp,'D:\spisok');
   Reset(rp);
   i:=0;
   writeln('Ukazhite familiu rabotnika');
   readln(fff);
    repeat
     Seek(rp,i);
     read(rp,v);
     i:=i+1;
      if v.stazh>10 then
      begin
       writeln('rabotnik', v.fam, '', v.name);
       writeln('dolzhnost', v.dolzh);
       writeln('ego stazh', v.stazh);
       writeln('poluchaet zarplatu', v.zar);
      end;
      sr:=0;
      sr:=sr+v.zar;
       if v.zar<sr then writeln('Zarplata','', v.fam,'','nizhe srednei');
     until eof(rp);
     readln
end.