Что не так паскаль

Cмысл в том что мне надо сделать так, что если в строке есть эти символы, то пишет да, если нет, то нет
4. Дана строка (вводится с клавиатуры). Содержит ли она символы “№ ! » ; , .% : ? @ # $ ^ & * ( )”?

var
s: string;
i: integer;
m: set of char;
begin
ReadLn(s);
for i := 1 to Length(s) do
if s[i] in ['“','№ ','!',' »',' ;',' ,',' .',' % ',': ','? ','@',' #',' $ ','^',' & ','* ','( ',')','”','?'] then
Include(m, s[i]);
if m = ['“','№ ','!',' »',' ;',' ,',' .',' % ',': ','? ','@',' #',' $ ','^',' & ','* ','( ',')','”','?'] then
WriteLn('Yes')
else
WriteLn('No');
ReadLn;
end.