uses crt;
const nn=5;
type sportsmeny=record
           imya:string[10];
           familiya:string[15];
           popytki:integer;
           apr_v_vec:string[10];
           end;
     rezultaty=array[1..12] of integer;
     masiv=array[1..nn] of sportsmeny;
var i,n,p,s:integer;
    rez: rezultaty;
    w,a,b:char;
    vybor: byte;
    name, surname: string;
    m: masiv;
    sum: integer;


procedure vvod;
 var sport:sportsmeny;
begin
inc(n);
 with sport do begin
           write('Imya: '); readln(imya);
           write('Familiya: '); readln(familiya);
           write('Kolichestvo popytok: ');
           readln(popytki);
           writeln('Vvedite rezuljtaty v santimetrah: ');
           writeln('Esli ne zaschitano, vvedi 0');
           for s:=1 to popytki do begin
               readln(rez[s]);end;
 m[n]:=sport;
end;
end;

procedure showmenu;
begin   writeln('1) Vvod');
	Writeln('2) Raspechatatj spisok');
	Writeln('3) Udalitj element iz spiska');
	Writeln('4) Najti element');
        writeln('5) Uporyadichitj');
	Writeln('6) Vyhod');
	Writeln;
	Write(' Vash vybor : ');
end;

procedure vyvod;
 var i:integer;
begin
 for i:=1 to n do begin
    with m[i] do begin
                 write('Imya: ',imya);
                 write('  Familiya: ',familiya);writeln;
                 write('Kolichestvo popytok: '); write(popytki);
                 writeln;
                 write('Rezuljtaty: ');
                 for s:=1 to popytki do write(rez[s],'  ');writeln;
                 writeln('Vychislennaya velichina: ');
                 sum:=0;
                 for s:=1 to popytki do begin
                   sum:=sum+rez[s];
                   write(sum/popytki:6:3);
                 end;
                 writeln;
                 end;
end;end;

{procedure delete;
 var i:integer; z: string;
begin
 writeln('Vvedite familiyu sportsmena, kotorogo hotile udalitj');
 readln(z);
 if z>n then writeln('Ne suwestvuet!')
 else begin
      for i:=z+1 to n do M[i-1]:=M[i];
      dec(n);
      end;
end;}

{procedure poisk;
 var name:string;
begin
writeln('Vvedi familiyu');
readln(surname);
with m.familiya do begin
                 write('Imya: ',imya);
                 write('  Familiya: ',familiya);writeln;
                 write('Kolichestvo popytok: '); write(popytki);
                 writeln;
                 write('Rezuljtaty: ');
                 for s:=1 to popytki do write(rez[s],'  ');writeln;
                 writeln('Vychislennaya velichina: ');
                 sum:=0;
                 for s:=1 to popytki do begin
                   sum:=sum+rez[s];
                   write(sum/popytki:6:3);
                 end;
           end;
end;}

{procedure poryadok(var m:masiv; var g:integer);
 var x:mas;
     i,j,p:integer;
 procedure bubble(var x:mas; var m:masivs; g:integer);
 var i,j:integer; maina:boolean;
     procedure obmen(var a,b:sportsmeny);
     var c:sportsmeny;
     begin c:=a; a:=b; b:=c;
     end;
 begin
 i:=g-1;
 repeat
 maina:=false;
 for j:=1 to i do
     if ord(x[j][1])>ord(x[j+1][1]) then begin
                                         mainit(m[j],succ(m[j]));
                                         maina:=true
                                          end;
 dec(i);
 until(i<1) or (maina=false)
 end;}


begin
clrscr;
vvod;
{writeln('Uporadochitj po:');
writeln('a - imeni');
writeln('b - familii');
readln(p);
case p of
     a:for i:=1 to g do x[i]:=m[i].imya;
     b:for i:=1 to g do x[i]:=m[i].familiya;
     end;
bubble(x,m,g);
vyvod;
end;}

repeat
showmenu;
readln(vybor);writeln;
case vybor of
     1: vvod;
     2: vyvod;
     {3: delete;
     4: poisk;
     5: poryadok(m,n);}
     6: halt(1);
until vybor=6;
readkey;
end.