...
S1 := S2;
Delete(S1, 1, length(S1));
If S1 = S2 then                  
   Write ('S2 была пустая');