Pascal, работа со строками

[Magenta]

Сообщение от Аватар

вместо Writeln(s3);
Writeln(s);

Если не трудно, объясни словами действия в коде и обозначения:
s3:=s2+s;
cnt:=0;
i:=Pos(s2,s); j:=Byte(i=0)+Byte(i>0)*3+i; s3[j]:=s2[3]; s3[j+2]:=s2[1]; s:=Copy(s3,4,12); cnt:=cnt+Byte(i>0);