Вставить после каждой буквы К и перед каждой буквой К символ * (*К*)- Pascal(Паскаль)

program Project1;
 
var
  i, Len : Integer;
  S : String;
begin
  repeat
    Writeln('Введите строку:');
    Readln(S);
    Len := Length(S);
 
    for i := Len downto 1 do begin
      (*Здесь учитываются буквы "К" из алфавитов кириллицы и латиницы.*)
      if S[i] in ['К', 'к', 'K', 'k'] then begin
        Insert('*', S, i + 1);
        Insert('*', S, i);
      end;
    end;
 
    Writeln('Строка после обработки:');
    Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.