I'm trying to convert a list with numbers into a string with binary values.

In[168]:= x={10, 10};

IntegerString[x,2]

z=StringJoin[IntegerString[x,2]]

Out[169]= {1010,1010}

Out[170]= 10101010

The desired result would be:

Out[169]= {0001010, 0001010}

Out[170]= 00010100001010