Даны 2 строки. Удалить из первой строки такие символы, которые есть во второй — Pascal(Паскаль)

uses crt;
var s1,s2,s:string;
    i,k:byte;
begin
clrscr;
writeln('Введите первую строку:');
readln(s1);
writeln('Введите первую строку:');
readln(s2);
k:=0;
for i:=length(s1) downto 1 do
if pos(s1[i],s2)>0 then
 begin
  k:=1;
  delete(s1,i,1);
 end;
if k=0 then write('В первой строке нет символов из второй!')
else
 begin
  writeln('Удаление символов в первой строке');
  write(s1);
 end;
readln
end.