23. Среди работников данного предприятия найти тех трех, чья заработная плата за месяц самая высокая по предприятию, а также распечатать список тех, кто проработал на предприятии менее 3 лет, с указанием их фамилии, зарплаты, стажа работы и должности.

Решение

program lab23;

type k=record

     name:string;

     zp:longint;

     staj:integer;

     doljnost:string;

     end;

var f:file of k;

    i,s:integer;

    bo:boolean;

    fio:string;

    a:k;

begin

     assign(f,'rabot');

     rewrite(f);

     writeln('vvedite 4islo rabotnikov');

     readln(s);

     for i:=1 to s do

     begin

          writeln('Familiya');

          readln(a.name);

          writeln('Zarplata');

          readln(a.zp);

          writeln('Staj');

          readln(a.staj);

          writeln('Doljnost');

          readln(a.doljnost);

          write(f,a);

     end;

     close(f);

     reset(f);

     s:=0; fio:='';

     writeln('  Familiya      | zarplata');

     writeln('____________________________');

     while not (eof(f)) do

     begin

          read(f,a);

          if a.zp>s then begin s:=a.zp; fio:=a.name; end;

     end;

        writeln(fio:10,'  ',s:10);

     close(f);

     reset(f);

     writeln('Staj < 3');

     bo:=true;

     while not(eof(f)) do

     begin

          read(f,a);

          if (a.staj<3) then

          begin

          if bo then  begin  writeln('  Familiya     | zarplata | staj | doljnost |');

              writeln('______________________________________________'); end;

              writeln(a.name:10,'   ', a.zp:10,'     ', a.staj:4,'   ', a.doljnost:10);

              bo:=false;

          end;

     if bo then writeln('Takih ne naydeno');

     end;

     close(f);

end.