ディレクトリ名を再フォーマットするには？

次のような名前のディレクトリがたくさんあります。
geom1 geom10 geom11 geom12 geom13 geom14 geom15 geom16 geom17 geom18 geom19 geom2 geom20 geom3 geom4 geom5 geom6 geom7 geom8 geom9

名前をこのように変更したいです。

geom0000001 geom0000002 geom0000003 geom0000004 geom0000005 geom0000006 geom0000007 geom0000008 geom0000009 geom0000010 geom0000011 geom0000012 geom0000013 geom0000014 geom0000015 geom0000016 geom0000017 geom0000018 geom0000019 geom0000020

次のスクリプトを使用しました。

a=1 for  
i in geom*/; do
          new=$(printf "geom%07d" "$a") 
            mv -- "$i" "$new"
              let a=a+1
      done

たとえば、質問はgeom10「 geom0000002いいえ」に移動してからgeom0000002「いいえ」に移動します。geom2geom0000012geom0000002

私が望むのは同じ順序を使用しますが、新しい形式を使用してディレクトリの名前を変更することです。