Вычеркнуть из слова X те буквы которые встречаются в слове Z — Pascal(Паскаль)

var
  s1,s2: string;
  i: integer;
begin
  ReadLn(s1);
  ReadLn(s2);
  for i := Length(s1) downto 1 do
    if Pos(s1[i], s2) <> 0 then
      Delete(s1, i, 1);
  WriteLn(s1);
  ReadLn
end.