Скажите, как нарастить "i", если значение "pos" >0?

Var s: string;
i,j: integer;
begin
i:=0;
readln(s);
pos('0',s);

if pos>0 then
inc(i);
writeln(i);
end.