Удалить из слова X те буквы, что используются при написании слова Y- Pascal(Паскаль)

var x,y:string;
     i:byte;
begin
writeln('Введите 2 слова:');
write('x=  ');readln(x);
write('y=  ');readln(y);
for i:=length(x) downto 1 do
if pos(x[i],y)>0 then delete(x,i,1);
if x='' then write('Все буквы первого слова удалены ')
else write(x);
end.