Node:Break, Next:Byte, Previous:Boolean, Up:Reference
Break { simple statement }
With Break you can exit the body of the current loop instantly.
It can only be used within a while, repeat or a for
statement.
Break is a Borland Pascal extension.
program BreakDemo;
var
Foo: Integer;
begin
while True do
begin
repeat
WriteLn ('Enter a number less than 100:');
ReadLn (Foo);
if Foo < 100 then
Break; { Exits `repeat' loop }
WriteLn (Foo, ' is not exactly less than 100! Try again ...')
until False;
if Foo > 50 then
Break; { Exits `while' loop }
WriteLn ('The number entered was not greater than 50.')
end
end.