Почему не работает программа на Pascal?

Question

Здравствуйте, укажите, пожалуйста, на ошибку/неточность/отсутствие чего-либо в коде. По задумке код должен искать в введенной строке слоги "на" и "На", после чего, подсчитав их, выдать результат. В любом случае результат работы кода сейчас - 0. Прошу объяснить всё подробно. Спасибо.
Код:
var s: string;
c, b: string;
k, g: integer;
begin
 writeln('Введите строку: ');
 readln(s);
 c:='на';
 b:='На';
 k:=0;
 g:=0;
 for var i:=1 to length(s) do
 if s[i]=c then k:=k+1;
 for var j:=1 to length(s) do
 if s[j]=b then g:=g+1;
 writeln(k+g);
end.

Юлия · Accepted Answer

https://pas1.ru/qty-substr

Елена Котова(Лященко) · Answer

Надо сравнивать ДВА символа - по отдельности.

k := 0;
for i := 1 to length(s) - 1 do
if (s[i] in ['Н', 'н']) and (s[i + 1] = 'а') then inc(k);
writeln(k)

Р Сабиров · Answer

s[i] - один символ
if s[i]=c - а сравниваешь с двумя - никогда не будет true
...