одномерный массив

[terru]

Добрый день, не могу справиться с одной задачей.
дана последовательность чисел, найти минимальное количество чисел, после удаления которых из последовательности оставшиеся числа образуют возрастающую последовательность.
Даже не представляю с чего начать, была мысль проверять для первого числа последовательности и одновременно удалять ненужные числа, затем восстанавливать массив и проверять для второго , для третьего и тд, но таким способом что то не получается.Буду благодарен за наводку в данной
задаче.

[terru]

Program pr;
var a:array[1..30] of integer;
i,j,m,n,kmin,k,z,nom,elem,l:integer ;
begin
writeln('vvedite n');
readln(n);
writeln('elementy massiva');
for i:=1 to n do
readln(a[i]);
kmin:=maxint;{мин количество элементов};
for i:= 1 to n do
begin
m:=n;
z:=a[i];
for l:=i to n do
begin
if (z>a[l+1]) then
begin
nom:=l;
elem:=a[l]; {запоминаем номер элемента и сам элемент}
{удаляем}
for j := l to m - 1 do
a[j] := a[j+1];
m := m - 1;
inc(k);{считаем количество удаленных элементов}
m:=m+1;
for j:=m+1 downto nom+1 do
a[j]:=a[j-1]; {вставляем элемент обратно в массив}
a[nom]:=elem;
z:=a[l+1];{переходим к следующему элементу}
end
else z:=a[l+1];
end;
if k<kmin then kmin:=k;
end;
writeln(' ','kmin=',kmin);
end.
Не могли бы подсказать в чем ошибка?