Try changing
While[noedge<num-1, ... ] Graph[vert,EdgeWeight->weights]
to
While[noedge<num-1, ... ]; Graph[vert,EdgeWeight->weights]
Thank you so much!