const
 n = 5;
type
 sp_men = record
  surname,sp:string;
  best:integer;
 end;
 t_row = array[1..n] of sp_men;
procedure read_mas(var a:t_row;n:integer);
var
 i:integer;
begin
 for i:= 1 to n do
  read(a[i].surname,a[i].sp,a[i].best);
end;
function get_best(const a:t_row;n:integer,const sp:string):integer;
var
 j,res:integer;
begin
 while(j <= n) and (a[j].sp <> sp) do
  j := j + 1;
 res := j;
 for i := j + 1 to n do
  if (a[i].sp = sp) and (a[i].best > res) then
   res := i;
 get_best := res;
end;
Begin
End.