Not exactly sure what you are asking but what about these?

A = 1
REPEAT BEGIN
...do something here....
A = A+1
ENDREP UNTIL A EQ 100

A = 1
WHILE (A NE 101) DO BEGIN
...do something here...
A=A+1
ENDWHILE