2. Составьте программу вычисления в массиве В(N) минимального среди положительных и его номер Пожалуйста, поясните

program MinPositiveElement;

const
N = 10; // размер массива

var
B: array[1..N] of integer;
i, minPos, indexMinPos: integer;

begin
// Заполнение массива случайными числами от -50 до 50
Randomize;
for i := 1 to N do
B[i] := Random(101) - 50;

// Вывод массива
Write('Массив B: ');
for i := 1 to N do
Write(B[i], ' ');
Writeln;

// Инициализация минимального положительного элемента и его индекса
minPos := MaxInt;
indexMinPos := 0;

// Поиск минимального положительного элемента и его индекса
for i := 1 to N do
if (B[i] > 0) and (B[i] < minPos) then
begin
minPos := B[i];
indexMinPos := i;
end;

// Вывод результата
if indexMinPos = 0 then
Writeln('В массиве нет положительных элементов')
else
Writeln('Минимальный положительный элемент: ', minPos, ', его индекс: ', indexMinPos);

Readln; // Ожидание нажатия клавиши для закрытия окна
end.