Написать программу для решения задачи a) Удалить из текста все введенные символы. b) В заданном тексте после каждого знака ‘–’ и перед каждым таким знаком вставить пробел, если его там нет.

Var
  s, s_rej, s2: string;
  i: integer;

begin
  Write(Введите текст: ); Readln(s);
  Write(Введите исключаемые символы ПОДРЯД: ); Readln(s_rej);
  s2 := ;
  for i := 1 to Length(s) do
    if Pos(s[i], s_Rej) = 0 then s2 := s2 + s[i];
  Writeln(Обработанный текст: , s2)
end.

Тестовое решение:
Введите текст: Пример текста, из которого будут исключены гласные буквы
Введите исключаемые символы ПОДРЯД: аеёиоуэюя
Обработанный текст: Прмр ткст, з ктрг бдт склчны глсны бквы

var
  s, s2: string;
  i: integer;
  c:array of string;

begin
  Write(Введите текст: ); Readln(s);
  s:=Trim(s);
  c:=s.Split(-);
  s2:=Trim(c[0]);
  for i:=1 to Length(c)-1 do
    s2:=s2+ - +Trim(c[i]);
  Writeln(Обработанный текст: , s2)
end.

Тестовое решение:
Введите текст:    тестовая   -строка - в ней много-много тире в разных-  преразных вариантах - и в таком даже
Обработанный текст: тестовая - строка - в ней много - много тире в разных - преразных вариантах - и в таком даже