Выясните, есть ли в заданном предложении буква «ы» — Pascal(Паскаль)

var a:integer;
     b:string;
begin
 readln(b);
for a:=1 to length(b) do 
 if b[a]='ы' then writeln('Букве быть');
readln
end.