Возрастающая последовательность Опции

[Postman]

Всем доброй части суток!
Решил написать следующую программку:
Дан целочисленный одномерный массив. Найти наименьшее число К элементов, которые можно выкинуть из массива, чтобы осталась возрастающая последовательность. Порядок следования элементов в возрастающей последовательности остаётся тем же, что и в исходной. Если возможных решений несколько, вывести одно из них.

Я её реализовал с помощью двух дополнительных файлов, в которые программа записывает промежуточные результаты своей работы (в один файл числа, которые нужно выкинуть, в другой - оставшиеся).
Но как обойтись без них? Неужели придётся создавать динамические списки?

 JOKE_1.PAS ( 1.64 килобайт ) Кол-во скачиваний: 730
- вот файл pas