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

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.