Найти элемент массива, значение которого принадлежит интервалу от 2 до 5 - Pascal ABC

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

Дан одномерный массив а(n), в котором находится единственный элемент ,значение которого принадлежит интервалу от 2 до 5. Найти где он находится , и упорядочить по убыванию элементы, расположенные перед ним. Выдать на экран номер элемента и упорядоченный массив.

Решение задачи: «Найти элемент массива, значение которого принадлежит интервалу от 2 до 5»

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

for i:=1 to n do
     if ((mas[i] < 5) and (mas[i] > 2)) then  //если в массиве такое число одно
        begin
               pos:=i;
               writeln('число в интервале от 2 до 5 - ', mas[i]);
               break;
        end;
        // потом с первой позиции массива до позиции pos "пузырьком" сортируете по убыванию/возрастанию ну и выводите.

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

Переменная n представляет собой количество элементов в массиве.
Переменная mas представляет собой массив чисел.
Переменная pos используется для отслеживания индекса найденного числа в массиве.
Выражение (mas[i] < 5) and (mas[i] > 2) проверяет, принадлежит ли число в массиве интервалу от 2 до 5.
Если условие выполняется, то число выводится на экран с помощью функции writeln().
Если условие не выполняется, цикл завершается.
После цикла происходит сортировка массива mas от первой позиции до позиции pos в порядке убывания с использованием функции sort().
Затем выводится отсортированный массив на экран с помощью функции writeln().