comparar cadena de dos textos

[thelibmx]

hola amigos del foro, reciban un gran saludo y una grande felicitacion por todo el apoyo que se da aqui, mi problema es el siguiente, necesito rellenar una cadena de caracteres ejemplo.

mi cadena es igual a b:= '534'

bien lo que quiero es que mi cadena tenga una longitud de 10 caracteres, es decir, ''b'' vale de longitud 3, entonces me faltan 7 caracteres para rellenar, esos caracteres que faltan los quiero rellenar con '0' (ceros) entonces quedaria algo asi

nuevo valor de b:='0000000534' y asi sucesivamente con diferentes numeros

ejemp.2

a:='25';
nuevo valor:='0000000025'

espero haberme explicado bien, si se preguntan para que?, realmente es algo insignificante pero importante, lo tengo que igualar a otro archivo.

todos esos numeros los tengo en un archivo de texto pero mi resultado es asi

520, 35,60
25, 35,20
590, 65,32

y el resultado que quiero es

0000000520, 35,60
0000000025, 35,20
0000000590, 65,32

bueno saludos y gracias por su ayuda