r: file of rabotnik_predpriyatiya;

Цитата(volvo @ 23.12.2006 17:16)

r: file of rabotnik_predpriyatiya;

r: file of rabotnik_predpriyatiya;

     rewrite( R );
       close( R );

Reset(rp);{File not found}

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.

 i:=0;
   writeln('Ukazhite familiu rabotnika');
   readln(fff);
    repeat
     Seek(rp,i); {а зачем ты это делаешь? после read указатель автоматически перейдет на след. запись}
     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; {средняя - это же не сумма, а сумма/количество, правда? поэтому, видимо, придется за 2 прохода: сначала считать сумму и количество, потом делить, а потом заново идти по файлу и смотреть, у кого меньше}
       if v.zar<sr then writeln('Zarplata','', v.fam,'','nizhe srednei');
     until eof(rp);