uses crt;
var i,max,size:integer;
    winer:string;
    nam:array[1..10] of string;
    bal:array[1..10] of integer;
begin
 clrscr;
 writeln('Введите кол-во участников соревнования');
 readln(size);
 FOR i := 1 TO size do
 begin
  clrscr;
  writeln('Фамилия участника');
  readln(nam[i]);
  writeln('Его балл');
  readln(bal[i]);
 end;
 max := bal[1];
 writeln('Участники');
 FOR i := 1 TO size do
 begin
  writeln(nam[i],' Балл ',bal[i]);
  end;
  FOR i := 1 TO size do
 begin
  IF bal[i] > max THEN
 begin
  max := bal[i]; winer:= nam[i];
 end;
 end;
 writeln(winer, ' победитель. Баллов ', max);
end.