exceptions

Program TRY_EXCEPT_STATEMENT;
{$mode delphi}
uses crt,sysutils;

var
num:integer;
run:boolean;

begin
    Writeln;
    run:=TRUE;

    While run do
    begin
        try    {if anything goes wrong in code, the program will move on to except}
           write('Enter an integer here please: ');
           readln(num);
           writeln('VALID INPUT');
           run := FALSE;
        except  {The program instead of crushing, does the following code}
           writeln('WRONG INPUT - PLEASE TRY AGAIN');
           run := TRUE;
        end;
    end;

    Writeln;
end.

{
Program Description:
  Program gets input from the user and performs
  a format validation check using the try-except
  statement. The program will ask for input
  until the input entered is valid.
}
2

Exceptions - Free