А можно так
Код:
IF start  THEN
FOR i:=1 TO 6 DO
IF (rParam_[i] = 0) THEN
stop := TRUE;
int2:= int2 + 1;  stop:= FALSE;  start:= FALSE;
RETURN;
ELSE
stop := FALSE;
END_IF
END_FOR
END_IF