Почему программа в Паскале не лицезреет "." в программке:program lolipops;var

Почему программка в Паскале не лицезреет "." в программке:
program lolipops;
var s:string;
n,k,i:integer;
begin
writeln ('Введите слово');
readln (s);
I:=1;
While ilt;=length(s) do begin
If s[i]='.' then
k:=k+1;
end;
writeln (k);
end.

Odanichkin Vitalka 2019-01-27 20:09:11

может условие обязано быть в скобках? if (s[i]='.')