В файле найти максимальную длину цепочки заданного вида

begin
  var s: string;
  var i, count, maxCount: integer;
  
  assign(input,'C:\Users\ALFA\Desktop\ФоксИнформат\24.txt');
  readln(s);
  count:=0;
  maxCount:=0;
  
  for i:=1 to Length(s) do
    if ((s[i]='D') and (count mod 4=0)) or ((s[i]='A') and (count mod 4=1)) or ((s[i]='B') and (count mod 4=2)) or ((s[i]='E') and (count mod 4=3)) then  begin 
       
      count := count+1;
      if count > maxCount then
        maxCount := count;
    end
    else if s[i]='D' then count:=1
    else count := 0;
 
 writeln(maxCount);
end.

begin
  var c, cmax: integer;
  var s: string := 'DDDAZCX'; { := содержимое файла}
  var i := 1; 
  var n := Length(s); 
  while i <= n do begin
    while (i <= n) and (s[i] <> 'D') do inc(i);
    while (i+c <= n) and (s[i+c] = 'DABE'[c mod 4 + 1]) do inc(c);
    if cmax < c then cmax := c;
    i := i + c;
    c := 0;
  end;
  Writeln(cmax)
end.

begin
  var s: string;
  var count, maxCount: integer;
  var f: text;
  assign(f,'C:\Users\ALFA\Desktop\ФоксИнформат\24.txt');
  reset(f);  
  readln(f, s);
  close(f);
  
  for var i := 1 to Length(s) do
    if s[i] = 'DABE'[count mod 4 + 1] then 
    begin
      inc(count);
      if count > maxCount then maxCount := count;
    end
    else
      if s[i] = 'D' then count := 1 else count := 0;
  
  writeln(maxCount);
end.