Generování převodů (m->cm)

<< Miscellaneous`Units`
n = 5;
cislo := Random[Real, {0.001, 20}, 5]
metry = Table[cislo, {n}];

centimetry = 
        Table[Convert[metry[[k]] Meter, Centimeter], {k, 1, 
            n}];
centi = Table[Delete[centimetry[[i]], 2], {i, n}];

Do[Print[metry[[i]] " m =         cm"], {i, n}]

Do[Print[metry[[i]] " m = ", centi[[i]] " cm"], {i, 
        n}]