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

ДА я сделал это

vars:string;a,e,n,i:Integer;beginwrite('Введите строку - ');readln(s);a:=length(s);for i:=1 to a do begin  if s[i]='К' then  begin  if e=0 then e:=i  else n:=i;  end; end;writeln(n);for i:=1 to a do begin  if (i<e) or (i>n) or (i=e) or (i=n) then  write(s[i])  else write('*'); end;end.

16 строчку команду writeln(n); удали чтобы цифра не появлялась

Вот так лучше а то старый код с маленькой "к" не работал

vars:string;a,e,n,i:Integer;beginwrite('Введите строку - ');readln(s);a:=length(s);for i:=1 to a do begin  if (s[i]='К') or (s[i]='к') then  begin  if e=0 then e:=i  else n:=i;  end; end;for i:=1 to a do begin  if (i<e) or (i>n) or (i=e) or (i=n) then  write(s[i])  else write('*'); end;end.