Взаданном тексте определить содержит ли он символ "& " (да, нет) pascal

//Pascal ABC.NET v3.1 сборка 1172

Var
 s:string;
begin
 readln(s);
 if pos('&',s)<>0 then writeln('Да') else writeln('Нет');
end.

Пример ввода:
A&B
Пример вывода:
Да