Задача на поиск элемента в слове

[heartquake]

В заданной символьной строке проверить одинаково ли количество слов с символами "*" и "#".
Вот, обьясните где ошибка :

Program aqb;
Var s:string;
i,z,r:integer;
Begin
write('Введите строку: ');
readln(s);
i:=0;
While i<Length(s) do
Begin
inc(i);
if not(s[i] in [' ',',']) then
Begin
if s[i]='*' then
z:=z+1
else
Begin
if s[i]='#' then
r:=r+1;
End;
End;
End;
Write('Количество слов с * :',z);
Writeln;
Write('Количество слов с # :',r);
End.

[grandmixer]

а какие то неправильные результаты выдало?
кстати лучше измени название string на другое - компиляторы ругаются

[heartquake]

Название программы поменяю, ошибка вот в чем :
У меня считает количество этих символов в этой строке, но если, например, в слове два символа "*", то посчитает как два слова

[heartquake]

http://pastebin.com/GnRZmLaJ
В чем проблема ?