сосчитать кол-во букв й Й в строке, которую введешь

спасибо большое!! очень выручил)

Нез

program p1;var s:string;i,z:integer;beginwrite('Введи текст: ');readln(s);for i:=1 to length(s) dobeginif (s[i]='й') or (s[i]='Й') then z:=z+1;end;writeln('Букв "й" в тексте ',z,' штук');end.