НАРОД ПОМОГИТЕ С ЗАДАЧЕЙ (В ДЕЛФИ ! )

[MaxFreeZz]

Народ, помогите, сам не прошариваю как сделать. Жду вашей помощи!

Вот Задача!

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

[MaTBeu]

Ваши наработки?

[MaxFreeZz]

я же говорю не знаю (( проболел тему(( мучаюсь теперь.

[Daramant]

Примерный алгоритм:
0. Создаешь 2 временных файла f1 и f2, текущим устанавливаешь f1.
Номер текущего файла можно хранить в переменной.
Так же нужны переменные для хранения:
- длинны максимальной последовательности (в начале 0).
- длинны текущей последовательности (в начале 0).

1. Читаешь первое число из файла.
(если файл пуст, соответственно и посл-ть пуста)
2. Обнуляешь текущий файл и записываешь в него это число.
Если числа нет - выход,
иначе: длина текущей посл-ти = 1.
d = не определено.
3.
4. Читаешь следующее число:
Если чисел в файле больше нет, то переход к шагу 7,
иначе:
Если d (шаг прогрессии) не определено, то определяешь его и идешь к шагу 5.
иначе: проверяешь принадлежит ли оно данной посл-ти.
5. Если принадлежит, то записываешь его в текущий файл и увеличиваешь длину текущей пос-ти на 1.
Переход к шагу 4.
6. Если не принадлежит, то:
7. Если длинна текущей посл-ти > длинны макс. посл-ти, то меняем текущий временный файл.
длинна макс. посл-ти = длинна текущей посл-ти.
длинна текущей посл-ти = 0.
Переход к шагу 2.
8. Если нет, то идем к шагу 2.

Когда достигнут конец файла:
определена длинна макс. посл-ти и в неактивном файле находится самая длинная последовательность.

[MaxFreeZz]

в 3. шаге ничего ??

[Daramant]

в 3. ничего, оставил, чтобы нумерацию не менять.