с задачей, Паскаль Лазарус. задана строка из нескольких слов. слова в строке разделены одним пробелом,в конце поставлена точка. Удалите из строки буквы, указанные пользователем. Предусмотрите ввод исходной строки,букв и вывод преобразованной строки.

Free Pascal

var

s, a : string;

i, p:integer;

begin

 writeln('Введите строку:');

 readln(s);

 writeln('Введите удаляемый символ(ы):');

 readln(a);

 p:=pos(a, s);

 while p > 0 do begin

   delete(s, p, length(a));

   p:=pos(a, s);

 end;

 writeln(s);

end.