В массиве найти наибольший элемент, удовлетворяющий условию 5 < x < 10. - Turbo Pascal

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

Для массива X(100) найти наибольший элемент, удовлетворяющий условию 5 < x < 10.

Решение задачи: «В массиве найти наибольший элемент, удовлетворяющий условию 5 < x < 10.»

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

uses crt;
const n=100;
var x:array[1..n] of real;
    i:byte;
    mx:real;
begin
clrscr;
randomize;
writeln('Массив');
for i:=1 to n do
 begin
  x[i]:=15*random;
  write(x[i]:5:1);
 end;
writeln;
mx:=5;
for i:=1 to n do
if(x[i]>5)and(x[i]<10)and(x[i]>mx)then mx:=x[i];
if mx=5 then write('Нет элементов из диапазона (5;10)')
else write('Максимальный элемент из диапазона (5;10)=',mx:0:1);
readln
end.

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

Установка начального значения переменной mx равным 5.
Инициализация массива x случайными числами в диапазоне от 0 до 150 с помощью функции randomize и цикла for.
Вывод на экран значений массива x с помощью цикла for и функции write.
Проверка каждого элемента массива x на удовлетворение условию 5 < x < 10 с помощью условного выражения (x[i]>5)and(x[i]<10).
Если элемент удовлетворяет условию, то проверяется на максимальность с помощью условного выражения (x[i]>mx).
Если элемент является максимальным, то он присваивается переменной mx.
После проверки всех элементов массива, выводится сообщение о найденном максимальном элементе, удовлетворяющем условию, или сообщение об отсутствии таких элементов.
Программа завершается с помощью функции readln.