Вычислить произведение минимального и максимального элементов среди положительных элементов матрицы - Pascal

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

Нужна помощь написать программу на языке Паскаль. Вычислить произведение минимального и максимального элементов среди положительных элементов матрицы.

Решение задачи: «Вычислить произведение минимального и максимального элементов среди положительных элементов матрицы»

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

program pr;
var
i,n,max,min,p:integer;
a:array[1..100] of integer;
begin
randomize;
writeln('Введите размер массива');
readln(n);
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:3);
end;
min:=a[1];
max:=a[1];
for i:=1 to n do
if a[i]>0 then
begin
if a[i]>max then
max:=a[i];
if a[i]<min then
min:=a[i];
end;
writeln;
writeln(max);
writeln(min);
p:=max*min;
writeln('Произведение максимального элемента на минимальный из положительных: ',p);
end.

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

Программа объявляет переменные i, n, max, min и p типа integer.
Создается массив a типа array[1..100] of integer, который будет содержать случайные числа от -10 до 10.
С помощью функции randomize производится инициализация генератора случайных чисел.
Пользователю предлагается ввести размер массива. Это число сохраняется в переменной n.
В цикле for происходит заполнение массива a случайными числами.
Переменные min и max инициализируются значением первого элемента массива a.
Далее, в цикле for происходит проверка каждого элемента массива a на положительность. Если элемент больше max, то max обновляется. Если элемент меньше min, то min обновляется.
После завершения внутреннего цикла, в переменных min и max хранятся минимальное и максимальное положительное значение в массиве a соответственно.
Вычисляется произведение min и max и сохраняется в переменной p.
Выводится произведение максимального элемента на минимальный из положительных.
Программа завершается.