{$MODE DELPHI} // For "Try/Except" keywords

uses
   SysUtils; // Defines "exception"

type
   MyStructure = Record
      FirstName:String;
      LastName:String;
   End;

var
   int:Integer;
   Author:MyStructure;

begin
   try
      for int:=1 to 10 do Writeln(int);
      while (int>-1) do begin
         Writeln(10 div int);
         Dec(Int);
      end;
   except
      on err:exception do Writeln(err.Message);
   end;
   with Author do begin
      FirstName:='Ozz';
      LastName:='Nixon';
   end;
   Writeln(Author.FirstName,' ',Author.LastName);
end.