Question

Срочно, высокий балл, первому лучший ответ

Подсчитать сколько раз в текстовой строке S встретится подстрока S1. 
Пример работы правильной программы:
Исходные данные
строка S: 
четыре черненьких чумазеньких чертенка чертили черными чернилами чертеж
подстрока S1: 
черн
Ответ:
подстрока "черн" в строке "четыре черненьких чумазеньких чертенка чертили черными чернилами чертеж" встречается 3 раз(а).

Подправить код, на данный момент при таком раскладе выдает ответ 0.

4bcb81dceae85f38894e7a5c5d4773cc.pas

Answer 1

После " for i := 1 to length(s) do"
Вставь вот это и проверь:
if (s[i] = 'с') then kol:=kol+1;
writeln(kol);
readln
end.