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

Вот программа (короче я не понял Ваше условие - там какие то С в кавычках, С без кавычек ...)

uses Crt;

var S: string;

i, Len, Sum: integer;

begin

ClrScr;

Write (' Slovo = ');

ReadLn (S);

Len:=length (S);

for i:=1 to Len do

if S[i]='c' then

Sum:=Sum+1;

WriteLn (' Colichestwo c = ', Sum);

ReadLn;

end.