Здравствуйте, Кондаков Александр Олегович.

Программа по первой задаче в приложении.
В строке В Вы определяете любые символы(у меня b:='abcdef'), которые будут заменятся в произвольно введенной строке.
Удачи!

Приложение:
var
a,b:string;
begin
{вводим не пустую строку}
repeat
write('Enter String:');
readln(a);
until length(a)>0;
b:='abcdef';{тут Ваши буквы}
{цикл проверки}
while length(b)>0 do
begin{цикл замены}
while pos(b[1],a)>0 do
begin
insert('*',a,pos(b[1],a));
delete(a,pos(b[1],a),1);
end;
delete(b,1,1);
end;
{выводим результат}
writeln('Result:',a);
readln;
end.