Pascal編程：將用逗號隔開的兩個英語單詞交換位置輸出

s,s2:string;

i:integer;

begin

readln(s);{讀取輸入的字符串}

s2:=copy(s,1,pos(s,',')-1);{獲取從第壹個字符到第壹個逗號之前的字符串}

delete(s,1,pos(s,','));{刪除從第壹壹個字符到第壹個逗號之後的字符串，剩下第二個單詞}

writeln(s2);{輸出第壹個單詞}

writeln(s);{輸出第二個單詞}

end.