Leave { simple statement }
With Leave you can exit the body of the current loop instantly. It can only be used within a while, repeat or a for loop.
Leave is a Mac Pascal extension. Borland Pascal has Break instead.
program LeaveDemo; var Foo: Integer; begin while True do begin repeat WriteLn ('Enter a number less than 100:'); ReadLn (Foo); if Foo < 100 then Leave; { Exits `repeat' loop } WriteLn (Foo, ' is not exactly less than 100! Try again ...') until False; if Foo > 50 then Leave; { Exits `while' loop } WriteLn ('The number entered was not greater than 50.') end end.
Loop Control Statements, Break, Continue, Cycle, Exit, Halt, Return, goto.