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 loop.
Break is a Borland Pascal extension. Mac Pascal has Leave instead.
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.
Loop Control Statements, Continue, Cycle, Exit, Halt, Leave, Return, goto.