Для проверки наличия символа "&" в заданном тексте можно использовать следующий код на Pascal:

program CheckAmpersandSymbol;
var
text: string;
begin
writeln('Введите текст:');
readln(text);
if Pos('&', text) > 0 then
writeln('Символ "&" найден в тексте.')
else
writeln('Символ "&" не найден в тексте.');
end.

При вводе заданного текста программа будет проверять, содержится ли в нем символ "&". Если символ найден, то будет выведено сообщение "Символ "&" найден в тексте.", если символ не найден, то будет выведено сообщение "Символ "&" не найден в тексте.".