вычислить количество слогов 'во' в предложении!в паскале ABC.

program XXX;
uses
crt;
var
a, i: integer;
s: string;

begin
a := 0;
readln(s);
for i := 1 to length(s) - 1 do
if (s = 'в') and(s[i + 1] = 'о')
then inc(a);
write('В строке ', a, ' "во"');
end.