Найти наибольший из отрицательных элементов массива - Pascal

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

Дан целочисленный массив заданный датчиком случайных чисел в интервале (90), найдите наибольший из отрицательных элементов массива

Решение задачи: «Найти наибольший из отрицательных элементов массива»

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

const
  n = 10;
  
var
  x: array [1..n] of integer;
  i, max: integer;
  
begin
  Randomize;
  max := -90;
  for i := 1 to n do
  begin
    x[i] := -90 + Random(181);
    Write(x[i], ' ');
    if (x[i] < 0) and (x[i] > max) then
      max := x[i]
  end;
  WriteLn('Наибольший из отрицательных = ', max);
  ReadLn
end.

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

Объявляется константа n и устанавливается её значение: 10.
Объявляется массив x размерности от 1 до n типа integer.
Объявляются переменные i и max типа integer.
Генерируется случайное значение, используя процедуру Randomize для инициализации генератора случайных чисел.
Устанавливается начальное значение переменной max как -90.
В цикле от 1 до n:
- Присваивается случайное значение элементу массива x[i] в диапазоне от -90 до 90.
- Выводится значение элемента массива x[i].
- Если x[i] меньше нуля и больше max, обновляется max значением x[i].
Выводится наибольшее из отрицательных чисел в массиве x с помощью строки Наибольший из отрицательных = и значение переменной max.
Осуществляется ожидание ввода в командной строке с помощью ReadLn. Этот код создает массив случайных чисел, выводит их на экран и ищет наибольшее отрицательное число в массиве, выводя результат на экран.