NAME: Delete

     USE: Procedure to delete a portion of a string.  Delete accepts a
          string variable, starting position, and number of characters
          as arguments.  If the starting position is greater then the
          string length then no characters are deleted.

     DEPENDENCY: None

     SYNTAX: Delete(StringVariable, StartPosition, NumberCharacters);
             Delete(String, Integer, Integer);

     EXAMPLE:    Program TestDelete;
                 Var
                    StringVar : String;

                 Begin
                    StringVar := 'This is a complete string';
                    Writeln(StringVar);
                    Delete(StringVar,6,5);
                    Writeln(StringVar);
                 end.