upper THEN CheckBounds := upper; dCheckBounds := dCheckBounds + 1; ELSE CheckBounds := index; END_IF ]]>