если использовать регулярные выражения то это можно сделать так:

var

   t : string;

begin

   readln(t);

   t := Regex.Replace(t, 'с1', ' ');

   writeln(t);

end.