Одномерные массивы. Дана целочисленная таблица a(n). Найти наименьшее число k элементов, которые нужно выкинуть из

program Project1;
uses
  CRT;
const
  maxelem = 100;
var
  a: array [1..maxelem] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  k: integer; { Переменная для подсчета количества элементов для удаления}
  alast: integer; {Переменная для хранения значение последнего сравниваемого элемента}
begin
  Randomize;
  write('Введите значение количества элементов (не более ',maxelem,'): ');
  repeat
    Readln(n);                        {Ввод значения количества элементов массива}
    if (n < 1) or (n > maxelem) then   {Условие проверки введенного значения на допустимый диапазон}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      a[i]:= random(201)-100; { Заполнение массива случайными числами в диапазоне значений от -100 до 100}
      write(a[i]:5);                   { Вывод элементов массива в консоль}
      if i mod 10 = 0 then
        writeln;
    end;
  k:= 0;
  write(a[1]:5);         {Вывод в консоль первого элемента}
  alast:= a[1];           { Установка значения, относительно которого ведется проверка}
  for i:= 2 to n do
    begin
      if a[i] >= alast then   { Условие для проверки элемента на возрастание}
        begin
          alast:= a[i];           { Если значение элемента удовлетворяет условию возрастания, 
                                         то проверку оставшихся элементов делаем от значения найденного элемента }
          textcolor(7);          
        end
      else
        begin
          inc(k);                 { Подсчет количества отсеянных элементов}
          textcolor(12);      { Установка цвета для выделения отсеянных элементов}
        end;
      write(a[i]:5);            { Вывод элементов массива в консоль}
    end;
  textcolor(7);
  writeln;
  writeln('Количество элементов, которые нужно выкинуть, чтобы создать возрастающую последовательность: ',k);
 
  Readln;
end.