count в паскале

Ответ от R2D2[гуру]
как-то так.. .
{описать переменные}
{count - счетчик, s - вводимая строка}
var
count,i:integer; s:string;
{ pos - позиция символа в строке}
begin
count:=0;
readln(s);
{цикл - пока в строке встречается 'у'}
while pos('y',s)>0 do begin
i:=pos('y',s); {номер позиции в строке}
if i/2=i div 2 then inc(count); {если i четная, увеличиваем счетчик}
{ удаляем найденный символ}
s(i):='_'; {подставдяем в строку _ вместо 'у'}
end; {конец цикла}
{результат на экран}
write ('count= ',count);
readln;
end
--исправил, сразу не заметил про четные в начале )
-- s(i) - заменить скобки на квадратные