NAME: Dec

     USE: Procedure to decrement a variable.

     DEPENDENCY: None

     SYNTAX: Dec(OrdinalValue,Amount);
             Dec(Ordinal, integer);

     EXAMPLE:     X := 16;
                  Dec(X);      { Equivalent to X := X - 1; }

                  Y := 22;
                  Dec(Y,12);   { Equivalent to Y := Y - 12; }