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

Сделать алгоритм и программу

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.