Найти длину самой короткой подцепочки, состоящей из символов С

var
  s := 'AAAAAABBBBBBBBCCCCCCCCAAAAAABBBBBBBBCCCCCCCAAAAAABBBBBBBAAAA'+
 'AABBBBBBBBCCCCCCCCAAAAAABBBBBBBBCCCCCCAAAAAABBBBBBBBCCCCCCCC BCCCCC';
  kol,p,minC: integer;
begin
  minC := 9999999;
  p := pos('C', s);
  while p <> 0 do
  begin
    kol := 0;
    while (p+kol <= Length(s)) and (s[p+kol] = 'C') do inc(kol);
    minC := min(minc, kol);
    p := pos('C', s, p+kol);
  end;
  writeln(minC);
end.

##  
var s := 'AAAAAABBBBBBBBCCCCCCCCAAAAAABBBBBBBBCCCCCCCAAAAAABBBBBBBAAAA'+
 'AABBBBBBBBCCCCCCCCAAAAAABBBBBBBBCCCCCCAAAAAABBBBBBBBCCCCCCCC BCCCCC';
s.AdjacentGroup.where(t-> t.First = 'C').Min(t-> t.Count).Println;

var
  s:string;
  find:boolean;
  d,m,i:integer;
begin 
  readln(s);
  d:=0;
  m:=0;
  for i:=1 to length(s) do
    if s[i]='C' then begin
      if not find then begin
        find:=true;
        d:=1;
      end else d:=d+1;
     end
     else begin
       find:=false;
       if ((m=0) and (d>0))or (d<m) then m:=d;
     end;
   if ((m=0) and (d>0))or (d<m) then m:=d;  
   writeln(m);
 end.

var
  s: string;
  i, n, m: integer;
begin
  readln(s);
  s := s + ' ';
  m := 0;
  n := 0;
  for i := 1 to length(s) - 1 do
    if s[i] = 'C' then
      begin
        inc(n);
        if s[i+1] <> 'C' then
          begin
            if (n < m) or (m = 0) then m := n;
            n := 0
          end
      end;
  writeln(m)
end.