procedure Insert(Source: String; var Dest: String; Index: Integer);
Merges Source into Dest at the position Dest[Index].