составить программу определяющую сколько букв "с" в данном слове

спасибо

Странный способ: применять функцию поиска в строке из одного символа?

строка может быть любой длины, расчеты правильные

У Вас оба аргумента pos - строки длины 1. Что st1='c', что st[i].

А работать будет, я же не писал, что решение неверное, я сказал, что странное оно... нерациональное.

Program z_1;var st,st1:string;i,sum:integer;beginwriteln('Введите Вашу строку');readln(st);st1:='с';for i:=1 to length(st) do if pos(st1,st[i] ) <> 0 then inc(sum); writeln('Ответ = ',sum);end.