Прошу помощи в написании программы!!!
Сколько букв "У" в заданном слове стоит на четных местах? (тема -операции над массивами)

var s:string;k,i:integer;beginwriteln('vvedite slovo');readln(s);for i := 1 to length(s) doif (s[i]='y') and (i mod 2=0) then inc(k);writeln ('k=',k);readln ;end.