Все элементы строки матрицы, где находится минимальный элемент, удвоить - Free Pascal

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

все элементы ряда массива А[1..4,1..2],где находится минимальный элемент,удвоить

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

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

For I:=1 to 4 do begin
    For J:=1 to 2 do begin
       If A[I,J]=Min then 
          A[I,J]:=A[I,J]*2;        
    end;
end;

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

Два вложенных цикла for проходят по всем элементам матрицы A.
В каждой итерации внутреннего цикла проверяется, является ли текущий элемент минимальным (равен ли он Min).
Если текущий элемент является минимальным, то он удваивается.
Переменная I и J используются для обозначения номера строки и столбца элемента матрицы A.
Переменная Min используется для обозначения минимального элемента матрицы A.
Значение переменной A[I,J] может быть изменено, если текущий элемент является минимальным.
Значение переменной A[I,J] удваивается, если текущий элемент является минимальным.
В каждой итерации внешнего цикла на каждой строке матрицы A выполняется проверка и, при необходимости, удвоение минимального элемента.
В каждой итерации внутреннего цикла на каждом столбце текущей строки матрицы A выполняется проверка и, при необходимости, удвоение минимального элемента.
В результате выполнения кода в каждой строке матрицы A минимальный элемент удваивается.