а чем
Код:
s2 := s1;
не нравится?