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.