Instead of:

for x=1:1:pNum {
    set roman = roman_"I"
   }

Try:

set roman = $Translate($Justify("", pNum)," ","I")

This can be used to generate an arbitrary number of any arbitrary character.