procedure Exit;
or
procedure Exit (program);
or
procedure Exit (Identifier);
Exit without an argument leaves the currently executed procedure or function. Note: If Exit is called within the main program, it will be terminated instantly.
Exit with an argument that is program or the name of the current program, terminates the program, and is equivalent to Halt.
Exit with an argument that is the name of the current or an encompassing routine leaves that routine.
Exit is a UCSD Pascal extension. Borland Pascal only allows it without an argument.
program ExitDemo; procedure Foo (Bar: Integer); var Baz, Fac: Integer; begin if Bar < 1 then Exit; { Exit `Foo' } Fac := 1; for Baz := 1 to Bar do begin Fac := Fac * Baz; if Fac >= Bar then Exit; { Exit `Foo' } WriteLn (Bar,' is greater than ', Baz, '!, which is equal to ', Fac) end end; begin Foo (-1); Foo (789); Exit; { Terminates program } Foo (987654321) { This is not executed anymore } end.