Дана последовательность нулей и единиц... (Delphi)

[HarleyKing]

Здравствуйте. Задание такое: Дана последовательность нулей и единиц. Выделить в ней максимальную по длине подпоследовательность чередующихся нулей и единиц, начинающуюся с единицы. (Delphi)
Не могу ни понять, ни реализовать, как выделять и выводить эту последовательность.

[BDA]

Я бы применил конечный автомат (https://ru.wikipedia.org/wiki/Конечный_автомат).
Хватит 3 состояний. Допустим, что считываем посимвольно последовательность нулей и единиц. Пусть максимальная длина и текущая длина подпоследовательности равны 0. Изначально находимся в нулевом состоянии.
Считываем очередной символ и обрабатываем в соответствии с текущим состоянием.

Нулевое состояние: максимальная длина равна максимуму из текущей и максимальной; если текущий символ 1, то текущая длина равна 0 и переход в первое состояние; если текущий символ 0, то остаемся в нулевом состоянии.
Первое состояние: увеличиваем счетчик текущей длины; затем, если текущий символ 1, то переходим в нулевое состояние; если текущий символ 0, то переходим во второе состояние.
Второе состояние: увеличиваем счетчик текущей длины; затем, если текущий символ 1, то переходим в первое состояние; если текущий символ 0, то переходим в нулевое состояние.

В конце работы еще раз выбираем максимум из максимальной и текущей. Затем выводим чередующуюся последовательность из нулей и единиц получившейся максимальной длины, начинающуюся с единицы.

Путем небольшой модификации вы можете также сохранить и индекс, с которого начинается эта подпоследовательность в исходной последовательности.

Если рассматривать с точки зрения оконного приложения, то последовательность может располагаться в Memo. После работы алгоритма может выводиться сообщение, что такая подпоследовательность не найдена, а если найдена, то выделить её с помощью SelStart и SelLenght прямо в Memo.

[HarleyKing]

А можете показать как это будет выглядеть в Delphi(консольное приложение), так я в программировании недавно и не могу понять как это будет выглядеть в виде кода.

[BDA]

Набросок такой:

max_len := 0;
cur_len := 0;
state := 0;
// открыть файл для чтения
while not eof(f) do
begin
  read(f, ch);
  case state of
    0: // некоторая работа;
    1: // некоторая работа;
    2: // некоторая работа;
  end;
end;
if cur_len > max_len then
  max_len := cur_len;
if max_len > 0 then
  writeln(max_len) // это вывод максимальной найденной длины
else
  writeln('NO');