vara,b:string;beginreadln(a);b:=copy(a,1,pos(',',a)-1);{b为逗号前面的单词}a:=a+','+b;{将逗号和单词插入原字符串后}delete(a,1,pos(',',a));{删除之前的单词及逗号}writeln(a);end.