Длиннейшая последовательность, Дана последовательность. Найди длину длиннейшей растущей подпоследоват Опции

[Kolyancz]

Задана последовательность чисел N. N<=1000. Найдите длину длиннейшей возрастающей последовательности, входящей в эту последовательность.
Например:
Дана последовательность: 4 6 1 6 9 9 6 1 2
Ответ: 3 (потому что самый длинный участок - это 1 6 9)

Порядок ввода данных: сначала задается кол-во чисел в последовательности, потом числа этой последовательности.
Например:
Ввод:
9
4 6 1 6 9 9 6 1 2
Вывод:
3

[volvo]

Вопрос, как?

Использовать функцию EOLn, и переписать ввод вот так:

n := 0;
while not eoln do begin
  inc(n); read(a[n]);
end;
_start := find_ascend(a, n, _max); { Ну, и вызываешь функцию }

(теперь даже не надо вводить число элементов, оно будет подсчитываться автоматически. Просто вводишь последовательность через пробел, и в конце жмешь Enter...)