В данной строке в последнем слове перед каждым символом С вставить символ !

Program z1;
Var n:string;
      i,j,q,e,w:integer;
begin
writeln ('ввести строку');
readln (n);
q:=lenght(n);
for i:=1 to q do begin
if n[i]=' ' then
w:=i; end;
for j:=w to q do begin
if n[j]='C' then
insert ('!',n,j-1); end;
writeln (n);
readln;
end.

if n[j]='C' then
insert ('!',n,j);//вставит перед

for j:=w to q do 
if n[j] in['C','C'] then insert ('!',n,j);

for j:=q downto w do 
if n[j] in['C','C'] then insert ('!',n,j);

Program z1;
Var n:string;
      i,j,q,e,w:integer;
begin
writeln ('ввести строку');
readln (n);
q:=length(n);
for i:=1 to q do
if n[i]=' ' then
w:=i;
for j:=q downto w do
if n[j] in['C','С'] then
insert ('!',n,j);
writeln (n);
readln;
end.

program z;
var x:string;
c,i,n:integer;
begin
writeln('введите строку');
readln(x);
c:=length(x);
for i:=1 to c do begin
if x[i]=' ' then
n:=i;end;
for i:=c downto n do begin
if x[i]='c' then
insert('!',x,i);end;
writeln(x);
readln;
end.