После каждой буквы ‘с’ написать ‘a’ — Pascal(Паскаль)

 var s:string;
     i:integer;
begin
 writeln('vvedite slovo');
 readln(s);

 for i:=length(s) downto 1 do
    if s[i]='c' then insert('a',s,i+1);

writeln(s);
end.