awk '
        {
                if ( $1 ~ /^%/ )
                {
                        A[$1]++
                        i = $1
                }
                else
                        R[A[i],i] = $0
        }
        END {
                for ( k in A )
                {
                        print k
                        print substr(R[A[k],k],length(R[A[k],k])-8) substr(R[1,k],1,9)
                }
        }
' file