WHILE condition REPEAT statement
Statement can be any valid statement as described at the beginning of the section on statements.
The WHILE statement provides a simple means of looping in a report program. As long as the value of condition is nonzero (true), statement will be executed.
count := 1;
WHILE count LE num_trans REPEAT BEGIN
count := count + 1;