Максимальное количество идущих подряд символов (длину непрерывной подпоследовательности), среди которых символ Т встречается ровно 100 раз

var
  f: Text;
  p, temp: string;
  M, i, j, maxLen: integer;
function ReplaceAll(var s: string; oldSub, newSub: string): string;
var
  p: integer;
begin
  while Pos(oldSub, s) > 0 do
  begin
    p := Pos(oldSub, s);
    Delete(s, p, Length(oldSub));
    Insert(newSub, s, p);
  end;
  ReplaceAll := s;
end;
 
begin
  Assign(f, 'demo_2025_24.txt');
  Reset(f);
  ReadLn(f, p);
  Close(f);
  M := 0;
  // Выполняем все замены
  p := ReplaceAll(p, '**', ' ');
  p := ReplaceAll(p, '--', ' ');
  p := ReplaceAll(p, '-*', ' ');
  p := ReplaceAll(p, '*-', ' ');
  p := ReplaceAll(p, '-06', ' 6');
  p := ReplaceAll(p, '*06', ' 6');
  p := ReplaceAll(p, '-07', ' 7');
  p := ReplaceAll(p, '*07', ' 7');
  p := ReplaceAll(p, '-08', ' 8');
  p := ReplaceAll(p, '*08', ' 8');
  p := ReplaceAll(p, '-09', ' 9');
  p := ReplaceAll(p, '*09', ' 9');
  // Разбиваем строку на части
  for i := 1 to Length(p) do
  begin
    if p[i] = ' ' then Continue;
    j := i;
    while (j <= Length(p)) and (p[j] <> ' ') do
      j := j + 1;
  
    temp := Copy(p, i, j - i);
    
    if temp[1] <> '-' then
      maxLen := Length(temp)
    else
      maxLen := Length(temp) - 1;
    if maxLen > M then
      M := maxLen;
   i := j;
  end;
  writeln('Максимальное количество символов: ', M);
end.

uses System.IO;
begin
  // Открытие файла и чтение содержимого
  var f := &File.OpenRead('24.txt');
  var sr := new StreamReader(f);
  var line := sr.ReadLine(); // Чтение первой строки
 
  // Формирование строки s с добавлением 'T' в начале и в конце
  var s := 'T' + line + 'T';
  
  var l := 0; // Длина между 'T'
  var maxi := 0; // Максимальная длина
  var pos := new List<Integer>(); // Список для хранения позиций 'T'
 
  // Заполнение списка позициями 'T'
  for var i := 1 to s.Length - 1 do
  begin
    if s[i] = 'T' then
      pos.Add(i); // Добавляем индекс буквы 'T' в массив
  end;
 
  // Поиск максимальной длины между 'T'
  for var i := 101 to pos.Count - 1 do
  begin
    l := pos[i] - pos[i - 101] - 1; // Вычисляем длину между 'T'
    maxi := Max(maxi, l); // Находим максимальную длину
  end;
 
  Print(maxi);
end.

## 
var m:=0;
var p:=ReadAllText('demo_2025_24.txt')
.replace('**', ' ')
.replace('--', ' ')
.replace('-*', ' ')
.replace('*-', ' ')
.replace('-06', ' 6')
.replace('*06', ' 6')
.replace('-07', ' 7')
.replace('*07', ' 7')
.replace('-08', ' 8')
.replace('*08', ' 8')
.replace('-09', ' 9')
.replace('*09', ' 9');
 
foreach var i in p.split do
    if i<>'-' then
        m := max(m, Length(i))
    else
        m := max(m, Length(i)- 1);
Println(m);//154