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

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

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.