Problemas con crystal reports 10

[lord_zephirott]

como se utiliza el DO WHILE?????????
aca les dejo un poco de codigo para que vean lo que hice.
saludos

numberVar Codigo := 0;
numberVar x := 0;
numberVar y := 0;
select {movimientos.Origen}
case 1:
x:= {talonarios.NroSucursal};
do
x:=0 & x
while len(x)<5;

y= {recibos.Recibo};
do
y:=0 & y
while len(y)<9;

Codigo:=x & "-" & y;
case 2:
Codigo:={fondos.ID}
case 3:
Codigo:={depositos.ID}
case 4:
Codigo:=4
default: Codigo:=0;