Найдите первую и последнюю буковку К в предложенном тексте и знаки

program zz1;
var s:string;
i,k1,k2:integer; //задаем переменные
begin
write(введите начальную строчку ); //вводим начальный текст
read(s);
for i:=1 to length(s) do
if (s[i] = к) or (s[i] = К) then begin k1:=i;break;end; //обретаем первую буковку "к", запоминаем ее номер
for i:=length(s) downto 1 do
if (s[i] = к) or (s[i] = К) then begin k2:=i;break;end; //обретаем последнюю буковку "к", запоминаем ее номер
for i:=k1+1 to k2-1 do
s[i] := *; //сменяем буковкы звездочкой
write(s); //выводим ответ
end.