10.  Из данного списка спортсменов распечатать сведения о тех из них, кто занимается плаванием. Указать того, кто занимается спортом дольше всех.

Решение

program lab10;

type k=record

     name:string;

     vid_sporta:string;

     god:integer;

     end;

var f:file of k;

    i,l,x:integer;

    min:real;

    n:string;

    a:k;

begin

     assign(f,'sport');

     rewrite(f);

     writeln('Vvedite 4islo sportsmenov');

     readln(x);

     for i:=1 to x do

     begin

          writeln('imya');

          readln(a.name);

          writeln('vid_sporta');

          readln(a.vid_sporta);

          writeln('skolko let zanimaetsya');

          readln(a.god);

          write(f,a);

     end;

     close(f);

     reset(f);

     writeln('name       | vid_sporta | zanimaetsya(let)');

     writeln('________________________________________');

     while not (eof(f)) do

     begin

          read(f,a);

          writeln(a.name:10,' ',a.vid_sporta:13, '  ', a.god:3);

     end;

     close(f);

     l:=0;

     reset(f);

     writeln('zanimaetsya plavaniem:');

     while not (eof(f)) do

     begin

          read(f,a);

          if a.vid_sporta='plavanie' then

          begin

          writeln(a.name);

          l:=l+1;

          end;

     end;

     if (l=0) then writeln('Nikto');

     close(f);

     reset(f);

     l:=0;

     while not (eof(f)) do

     begin

          read(f,a);

          if a.god>l then

          begin

          l:=a.god;

          n:=a.name;

          end;

     end;

     writeln('zanimaetsya sportom dolshe vseh:');

     writeln(n,' ',l, ' let');

     close(f);

     readln;

end.