Склавиатуры вводится строка символов. составить программу , которая находит номер первого и последнего символа 'к' и заменяет все символы между этими буквами на звездочку . сделать алгоритм и программу

program zwezda;
uses Crt;
var S: string;
     i, Len: integer ;

begin
ClrScr;
  Write('Ввод строки: '); ReadLn(S);
  ClrScr;
  WriteLn ('‘Строка:  ', S);
  WriteLn;
  WriteLn ('Первый символ: ', S[1]);
  Writeln;
  Len:=length(S);
  WriteLn('Посдедний символ: ',S[Len]);
  WriteLn;
  for i:=2 to len -1 do
     S[i]:='*';
  WriteLn('Результат:  ',s);
  ReadLn;
end.