Writeln(List[0].Name, ' ', List[0].Score);
        for I := 0 to Size-1 do
        begin
            if ((List[I].Score = List[0].Score) and (List[I].Name <> List[0].Name)) then
            begin
                Writeln(List[I].Name, ' ', List[I].Score)
            end;
        end;


        Writeln(List[1].Name, ' ', List[1].Score);
        for I := 0 to Size-1 do
        begin
            if ((List[I].Score = List[1].Score) and (List[I].Name <> List[1].Name)) then
            begin
                Writeln(List[I].Name, ' ', List[I].Score)
            end;
        end;


        Writeln(List[2].Name, ' ', List[2].Score);
        for I := 0 to Size-1 do
        begin
            if ((List[I].Score = List[2].Score) and (List[I].Name <> List[2].Name)) then
            begin
                Writeln(List[I].Name, ' ', List[I].Score)
            end;
        end;