даны две строки вычеркнуть из строчки а знаки встречающиеся в строке

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var s1:=ReadlnString('1-ая строчка:').ToHashSet;
  var s2:=ReadlnString('2-ая строка:').ToHashSet;
  (s1-s2).Println('');
end.

Тестовое решение:
1-ая строчка: 12345 - вышел Кролик погулять!
2-ая строка: 34 - ноги обширнее!
125вылЗайчкпуять

Var a,b : String;
  i : Byte;
Begin
  Readln(a);
  Readln(b);
  For i:=Length(a) downto 1 do If Pos(a[i],b)gt;0 then Delete(a,i,1);
  Writeln(a);
end.