program zad;

type sportsmen=record fam:string;
     rez:integer;
     gr:integer;
     str:string;
     rost:150..220;
     ves:30..100;
end;



procedure pervaya(const dann: array of sportsmen;
          const n: integer);
var
  a: string;
  i, ix, rez: integer;
begin
  ix := -1;
  write('vvedite stranu: '); readln(a);
  for i := 0 to n - 1 do
    if (dann[i].str = a) then begin
      if (ix = -1) then ix := i
      else
        if dann[i].rez > dann[ix].rez then ix := i;
    end;

  if ix = -1 then writeln('no results')
  else writeln('the best is: ', dann[ix].fam)
end;

procedure vtoraya(const dann: array of sportsmen;
          const n: integer);
var
  s:string;
  sredr, sredv: real;
  i, count: integer;
begin
  write('vvedite stranu dlja vychislenija sred. rosta i vesa: '); readln(s);

  count := 0;
  sredr := 0.0; sredv := 0.0;

  for i := 0 to n-1 do
    if (dann[i].str = s) then begin
      sredr := sredr + dann[i].rost; sredv := sredv + dann[i].ves;
      inc(count);
    end;

  if count = 0 then writeln('no results')
  else
    writeln('sr. rost = ', sredr/count:10:5, ' sr. ves = ', sredv/count:10:5);
end;

procedure tretya(const dann: array of sportsmen;
          const n: integer);
var
  grr, re, i:integer;
begin
  write('vvedite vozrast: '); readln (grr);
  write('vvedite rezuljtat: '); readln (re);

  for i := 0 to n - 1 do
    if (dann[i].gr = grr) and (dann[i].rez >= re) then
      writeln(dann[i].fam);

end;

var
  g, i, n: integer;
  dann: array[1 .. 10] of sportsmen;

var
  f: file of sportsmen;

begin
  assign(f, 'sport.dat'); rewrite(f);

  write('vvedite kol-vo sportsmenov: '); readln(n);

  for i:=1 to n do begin
      writeln('#', i:2, ': ');
      write('vvedite familiju'); readln(dann[i].fam);
      write('vvedite stranu'); readln(dann[i].str);
      write('vvedite rezuljtat'); readln(dann[i].rez);
      write('vvedite god roghdenija'); readln(dann[i].gr);
      write('vvedite rost'); readln(dann[i].rost);
      write('vvedite ves'); readln (dann [i].ves);
      write(f, dann[i]);
  end;
  reset(f);

  { MENU }
  repeat;
    writeln('Naghmite nomer esli xotite yznat:');
    writeln('1-luchshij sportsmen dannoj strany');
    writeln('2-srednij rost i ves sportsmenov dannoj strany');
    writeln('3-spisok sportsmenov dannogo vozrasta s rez, ne hughe dannogo');
    writeln('4-exit');
    readln(g);
    case g of
      1: pervaya(dann, n);
         { pervaya(f); }
      2: vtoraya(dann, n);
         { vtoraya(f); }
      3: tretya(dann, n);
         { tretya(f); }
      4: ;
    end;
  until g = 4;
  close(f);

end.