Файл: Найдите максимальную длину цепочки вида CACACA

begin
  var s: string;
  var i, count, maxCount: integer;
  assign(input, 'k7b-5.txt');
  readln(s);
  count:=0;
  maxCount:=0;
  for i:=1 to Length(s) do
    if ((s[i]='C') and (count mod 2=0)) or 
       ((s[i]='A') and (count mod 2=1)) then  begin  
      count := count+1;
      if count > maxCount then
        maxCount := count;
    end
    else if s[i]='C' then count:=1 else count:=0;
    writeln(maxCount);
end.
или
begin
  assign(input, 'k7b-5.txt');
  var s: string;
  read(s);
  var c := 'CA';
  while c in s do
  begin
    if c[length(c)] = 'C' then
      c += 'A'
    else if c[length(c)] = 'C' then
      c += 'A';
  end;
  print(length(c) - 1)
end.

## ReadAllText('k7b-5.txt').Replace('CA', #0).Select(c->c=#0?#0:#32).JoinIntoString.ToWords.Select(word->word.Length).Max.Print;

##
var n,i: integer;
var A: boolean;
foreach var ch in ReadAllText('k7b-5.txt') do 
 case ch of
    'A': (n,i,a) := A ? (n,i+1,false) : (max(i,n),0,false);
    'C': (n,i,a) := not A ? (n,i+1,true) : (max(i,n),1,true);
    else (n,i,a) := (max(i,n),0,false)  
 end;
Println('Символов в цепочке:', Max(n, i));

##
var s := ReadAllText('k7b-5.txt')
var (n, i, c, cmax) := (s.Length, 1, 0, 0);
while i<=n do begin
  while (i<=n) and (s[i]<>'C') do i += 1;
  while (i<=n) and (s[i]='C') do begin
     c +=1; //буква С учтена
     if (i<n) and (s[i+1]='A') then c+=1 //буква А учтена
     else begin i+=1; Break end;
     i += 2;
  end;
  (cmax, c) := (max(c,cmax), 0);
end;
cmax.Println