begin
var r1:string;
var r2:string;
var symbol:char;

writeln('Введите слово');

readln(r2);
r1:= r2;
for var i := 1 to length(r1) do begin
r1[i]:= '*';
end;

while (true) do begin
writeln('Введите символ');
readln(symbol);

for var i := 1 to length(r2) do begin
if (r2[i] = symbol) then begin 
r1[i]:=symbol;
end;
end;

for var i := 1 to length(r1) do begin
write(r1[i]);
end;
writeln();
end;

end.