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

Ты говоришь:
пока i < длины строки S делай:
если S с индексом i = "." то k++
Все
Ты не меняешь "i", он у тебя всегда 1й элемент смотрит)
Как должно быть:

While i<=length(s) do begin
If s[i]='.' then
k:=k+1;
inc(i);
end;