Program Zapisi_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;
  k:char;

 begin
  Assign(rp,'c:\spisok');
  {$I-}
  Reset(rp);
  {$I+}
   if ioresult<>0 then rewrite(rp);
  repeat
   writeln('Vvedite familiu rabotnika'); readln(v.fam);
   writeln('Vvedite imya rabotnika'); readln(v.name);
   writeln('Vvedite dolzhnost rabotnika'); readln(v.dolzh);
   writeln('Vvedite stazh rabotnika'); readln(v.stazh);
   writeln('Vvedite zarplaty rabotnika'); readln(v.zar);
   write(rp,v);
   writeln('Budete prodolzhat vvod dannyh?(da/net)'); readln(k);
   until k='N';
  readln
end.