Помог. решить задачу

[MrVamp]

Найти количество слов, число букв в которых равно количеству предыдущих слов, конец ввода F2.
Написал, но чёт не пашет (.

program ghg;
var s:string;cw:integer;pwc:integer;wg:integer;i:integer;
begin
readln(s);
wg:=1;
cw:=0;
pwc:=0;
s:=s+' ';
for i:=1 to length(s) do begin
if (s=' ') or (s=',') or (s='.') then begin
if (i>wg) then begin
if pwc=(i-wg) then begin
cw:=cw+1;
end;
end;
pwc:=pwc+1;
wg:=i+1;
end;
end;
writeln(cw);
end.