uses crt;
var i,size,max:integer;
    nam:array[1..10] of string;
    bal:array[1..10] of integer;
begin
 clrscr;
 writeln('Сколько участников олимпиады');
 readln(size);
 writeln('Максималтный балл');
 readln(max);
 FOR i := 1 TO size do
 begin
  clrscr;
  writeln('Фамилия участника');
  readln(nam[i]);
  writeln('Его балл');
  readln(bal[i])
 end;
 clrscr;
 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 writeln(nam[i], ' победитель, баллов-',max);
 end;
end.