Cycle { simple statement }
Cycle goes on with loop iteration by jumping to the end of the current loop body. Note: Cycle can only stand within a while, repeat or a for loop.
Cycle is a Mac Pascal extension. Borland Pascal has Continue instead.
program CycleDemo;
var
Foo, Bar: Integer;
begin
WriteLn ('Enter three numbers:');
for Bar := 1 to 3 do
begin
ReadLn (Foo);
if Foo < 5 then
Cycle;
WriteLn ('Your number was greater than 5.')
end
end.
Loop Control Statements, Break, Continue, Exit, Halt, Leave, Return, goto.