IF array(i)=ucase(array(i)) then