Дан массив С(25) и число х. если после минимального элемента стоит элемент равный х, то записать в массив В элементы, ко - PascalABC.NET

Формулировка задачи:

Дан массив С(25) и число х. если после минимального элемента стоит элемент равный х, то записать в массив В элементы, которые равны х.

Решение задачи: «Дан массив С(25) и число х. если после минимального элемента стоит элемент равный х, то записать в массив В элементы, ко»

Листинг программы

  var x := ReadlnInteger('X =');
  if c.IndexesOf(v -> v = c.Min).Any(i -> (i < 24) and (c[i + 1] = x)) then
    b := ArrFill(c.Count(v -> v = x), x).Println.ToArray
  else writeln('Массив B пуст...')

Объяснение кода листинга программы

Вводится число х с помощью функции ReadlnInteger('X = ')
Проверяется условие: есть ли в массиве элемент, равный х, который идет после минимального элемента.
Если условие выполняется, то в массив В записываются элементы, которые равны х, с помощью функции ArrFill(c.Count(v -> v = x), x).
Результат выводится на экран с помощью метода Println.ToArray.
Если условие не выполняется, то выводится сообщение Массив B пуст...