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

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