program ex1;
uses crt;
var b:char;
st,s2:string;
i:integer;
begin
clrscr;
b:='8';
s2:='';
write('введите строку символов по нажатию нажмите пробел ');
while (b<>' ') do begin
st:=st+b;
b:=readkey;
write('*');
end;
clrscr;
for i:=2 to length(st)+1  do s2:=s2+'*';
write('ведите букву для выхода нажмите пробел  ',s2);
b:='1';
while (b<>' ') do begin
b:=readkey;
if pos(b,st)>0 then begin
clrscr;
s2[pos(b,st)]:=b;
write(s2);
end;
end;
write(length(st));
end.