Строки Опции

[cxt]

Помогите решить
Сколько букв "у" в строке стоит на четном месте

Код

program xxx;
var s1:string[20];
n,q:integer;
begin
q:=-1;
Writeln('Введите слово');
read(s1);
n:=pos('y',s1);
if n>0 then begin
repeat
n:=pos('y',s1);
q:=q+1;
delete(s1,n,1);
until n=0;
end
else
q:=0;
writeln('Кол-во y=',q);
end.

Помогите зделать чтобы программа считала сколько стоит на четном месте.

Поиском пользовался...