var
  name, fam: array[1..100] of string;
  gol: array[1..100] of integer;
  i, j, n, k, d, z3: integer;
  num: array[1..100] of integer;
  z, z2: string;
  
begin
  write('Введите количество футболистов: ');
  readln(n);
  
  for i := 1 to n do
    begin
      writeln('ФУТБОЛИСТ №',i);
      write(' Имя: ');
      readln(name[i]);
      write(' Фамилия: ');
      readln(fam[i]);
      write(' Кол-во голов: ');
      readln(gol[i]);
    end;
    
  for i := 1 to n do 
    if gol[i] >= 1 then 
      begin
        d := d + 1;
        num[d] := i;
      end;
      
  for i := 1 to d-1 do
    for j := 1 to d-i do
      if name[num[j]] > name[num[j+1]] then
        begin
          z := name[num[j]];
          z2 := fam[num[j]];
          z3 := gol[num[j]];
          
          name[num[j]] := name[num[j+1]];
          fam[num[j]] := fam[num[j+1]];
          gol[num[j]] := gol[num[j+1]];
          
          name[num[j+1]] := z;
          fam[num[j+1]] := z2;
          gol[num[j+1]] := z3;
        end;
  
  for i := 1 to d do
    writeln(i,': ',name[num[i]],' ',fam[num[i]],' ',gol[num[i]]);
end.