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

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

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.