Temas

Vereis, tengo un pequeño problema al crear unos codigos para clase de informatica, el problema son los ceros no signifiativos, ya que al generarlos aleatoriamente se me pondria el codigo : 357, cuando por ejemplo tendria que ser el 03057.

Y tampoco he conseguido como concatenarlo ya que consigo hacer :
READLN(Ai);
  readln(Bi);
  auxb:=1;
cb:=0    ;
  auxa:=1;
  ca:=0 ;
  WHILE (auxa<=Ai) DO
  begin
  ca:=ca+1;
  auxa:=auxa*10;
  end;
  za:=(2-ca);
  WHILE (za>0) DO
  begin
  WRITE(0) ;
  za:=(za-1)
  end;
  WRITE(Ai) ;
  WHILE (auxb<=Bi) DO
  begin
  cb:=cb+1;
  auxb:=auxb*10;
  end;
  zb:=(3-cb);
  WHILE (zb>0) DO
  begin
  WRITE(0) ;
  zb:=(zb-1)
  end;
  write(bi);

Pero en este caso solo escribe el numero tal cual y si por ejemplo pongo 5 y 2, me queda 05002, pero necesitaria que me diese ese valor en String, podeis ayudarme?
gracias de antemano.