В строке после каждой буквы "К" добавить еще одну букву "К"

program borlpasc;
uses crt;
var s:string;
    i:integer;
begin
clrscr;
writeln('Введите строковую переменую:');
      readln(s);
      for i:=1 to length(s) do
        begin
        if s[i]='k'then begin
         insert(s[i],s,1);
         end;
         end;
      write(s);
      readkey;
end.

uses crt;
var s:string[80];
    i,k:integer;
 
begin
      clrscr;
      writeln('Введите строковую переменую:');
      readln(s);
      k:=length(s);
      i:=1;
      repeat
           if s[i]='k'then
           begin
              insert('k',s,i);
              inc(i);
              inc(k);
           end;
           inc(i);
      until i>k;
 
      write(s);
      readkey;
end.

program gr;
var s:string; 
      c:char; 
      i:integer;
begin
clrscr;
write('введите строку ');
readln(s);
i:=1;
c:='k';
while i<=length(s) do 
begin   
if s[i]=c then begin
insert(c,s,i); 
inc(i,2); 
continue;
end;   
inc(i); 
end;
writeln(s);
end.

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