выясните есть ли в заданном предложении буква "ы"

если есть что выходило есть, если нет то такой буквы нет

program er;
var i:integer;
T:string;
begin
write('');readln(T);
for i:=1 to length(T) do
if copy (T,i,1)='ы' then writeln('Есть');немогу написать код что нет такой буквы помогите плизз