Обработка символьных данных

[Солнышконанебе]

Вставьте в слове перед каждой буквой "к", которой предшествует "с", букву "о". Я написала, но она почему-то букву "о" не вставляет. Помогите найти ошибку, пожалуйста.

Var s, subS: string[10];
    a:integer;
begin
writeln('Введите слово');
readln(s);
subS:='о';
a:=pos('с',s);
if pred('к')='с' then Insert(subS, S, a+1);
writeln(s);
end.

[Poma][a]

begin
        ReadLn (s);
        
        t := Pos ('ck'.s);
        if t <> 0 then
                Insert ('o', s, t);
       
        WriteLn (s)
end.

[Солнышконанебе]

Все равно буква "о" не туда вставляется и вставляется всего один раз=(

[whatever]

Var
  s: string[10];
  i:integer;
begin
  readln(s);
  for i:=length(s) downto 2 do
    if (s[i]='k') and (s[i-1]='c') then
      insert('o',s,i);
  writeln(s);
  readln
end.

Либо так:

Var
  s: string[10];
  t:integer;
begin
  readln(s);
  t:=pos('ck',s);
  while t<>0 do
    begin
      insert('o', s, t+1);
      t:=pos('ck',s);
    end;
  writeln(s);
  readln;
end.

Кстати, имей ввиду, что в коде "буквы не русские". Если надо замени.

[Солнышконанебе]

Спасибо большое!=)