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,'c:\spisok'); {$I-} Reset(rp); {$I+} i:=0; writeln('Ukazhite familiu rabotnika'); readln(fff); repeat Seek(rp,i); read(rp,v); i:=i+1; if v.fam=fff then writeln('rabotnik',v.fam); 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