program suurimapunktiline;
var
 i, n, max, punktide_arv, veakood: integer;
 maxnimi,nimi, s, failinimi: string;
 f: text;
begin
 writeln('Programm valjastab failist saadud andmete jargi suurima ');
 writeln('punktide arvu ning nende punktide omaniku ');
 write('Sisesta andmefaili nimi: '); readln(failinimi);
 assign(f, failinimi);
 {$I-}
 reset(f);
 {$I+}
 if (IOResult<>0) then
 begin
  writeln('Fail ',failinimi, ' puudub');
  halt;
 end;
 readln(f, s);
 val(s, n, veakood);
 max:=0;
 for i:=1 to n do
 begin
  readln(f, s);
  nimi:=s;
  readln(f, s);
  val(s, punktide_arv, veakood);
  if (punktide_arv>max) then
  begin
   max:=punktide_arv;
   maxnimi:=nimi;
  end;
 end;
 Writeln('Enim punkte sai ',maxnimi,': ', max,' punkti.');
end.