NAME: Insert

     USE: Procedure to insert a specified substring into a specified
          string starting at a specified position. If the resulting
          string is greater then 255 characters, then it is trunicated
          to 255 characters.

     DEPENDENCY:  None

     SYNTAX: Insert(SourceString : String;Var ResultString : String;
                        StartPos : Integer);

     EXAMPLE:    Program InsertDemo;
                 Var
                    InsertString : String;

                 Begin
                    InsertString := 'Here's of the string';
                    Writeln(InsertString);
                    Insert('the middle ',InsertString,8);
                    Writeln(InsertString);
                 End.