Используя функцию INSERT и POS, в данной строке, содержащей два слова…

var i: integer; s: string; begin write ('Введите два слова через запятую: '); read (s); for i: =1 to length (s) do if s[i]=',' then insert (', s, pos (',', s)+1); writeln (s); end.