{удаление всех символов из первой строки, которые находятся во второй}
program DeleteSimv;

var
  str1, str2: string;
  k, n, i: integer;
  lenb, kol: integer;

function del(str: string; a: char): string;
var
  n, i: integer;
begin
  
  n := 1;
  while n <= length(str) do
  begin
    
    if str[n] = '.' then 
    begin
      for i := n to (length(str) - 1) do
      begin
        str[i] := str[i + 1];
      end;
      n := n - 1;
      inc(kol);
    end;
    
    inc(n);
  end;
  
  del := str;
end;

begin
  writeln('введите сначал исходную строку, затем символы, которые вы хотите удалить');
  writeln('исходная строка не должна начинаться или заканчиваться на удаляемый символ');
  readln(str1);
  readln(str2);
  
  lenb := length(str1);
  kol := 0;
  
  
  for k := 1 to length(str2) do {замещает удаялемые символы на точки}
  begin
    for n := 1 to length(str1) do
      if str2[k] = str1[n] then str1[n] := '.';
    
  end;
  
  
  str1 := del(str1, '.');{удаляет точки}
  
  
  writeln();
  for k := 1 to lenb - kol do write(str1[k]);
  
  
end.