Дан целочисленный линейный массив из 10 элементов. найдите наименьшее число k элементов, которое нужно исключить из последовательности a[1], a[2], …, a[10], чтобы осталась возрастающая последовательность.язык delphi или паскаль буду признателен

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в матрице: ');   writeln('*** исходная матрица ***');   var rmatr: =matrrandom(n,m,-99,99);   rmatr.println(4); writeln(4*m*'-');   var max: =rmatr.elementsbyrow.max;   var s: =0;   foreach var row in rmatr.rows do       if row.contains(max) then s+=row.sum;   writeln('сумма равна ',s) end. пример количество строк и столбцов в матрице: 8 7 *** исходная матрица ***   -50 -48    6    5  54 -16  42   -96 -23 -35  46 -39 -44 -15     2 -67  99  50 -53  68 -61   -77 -13 -76 -59  38 -20    4   97 -82  -1  20 -81 -77  -2   -51  87  34  -5  14 -60  91   -53  24    2  98 -98  29 -84   60  28  18  68    8  28 -73 сумма равна 38

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(10,10,-75,132);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.elementswithindexes.where(t-> t[0].between(100,999));   foreach var t in s do write('[',t[1]+1,',',t[2]+1,'] ') end. пример *** исходный массив ***   -3 -22 -17 105  33 -73  37 109  83 106   -38  12 108  25  -8    0  97 -56 -24  10   78 108    8    7  89 -54 108    3  24  86   -31 -39  12 129  38  90  56  94 -26  84   24  -4 -14    9  87 126  82 129  15 104   20  68  61 -52  79  22 102 109 -59  12   -48 -41    9 129  61 -74 132 112 120  34   76 -72 103  25 118    6  47 132  53  95   -4 112 120  53 -10  33  33 -11 -25 -60   121  80  78  94  57 -10 120 -11  80  85 [1,4] [1,8] [1,10] [2,3] [3,2] [3,7] [4,4] [5,6] [5,8] [5,10] [6,7] [6,8] [7,4] [7,7] [7,8] [7,9] [8,3] [8,5] [8,8] [9,2] [9,3] [10,1] [10,7]