...
Insert('string1', S2, 1);
If S2 = 'string1' then                 // в начало строки S1 вписали  "string1" 
   Write ('S2 была пустая');           //