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

Var
  A:array [1..4,1..2] of Byte;
  I,J:Byte;
  Min:Byte;
Begin
  Randomize;
  For I:=1 to 4 do begin
    For J:=1 to 2 do begin
      A[I,J]:=Random(10)+1; // zapolnenie slu4ajnimi 4islami ot 1 do 10 
      Write(A[I,J],' ');
    end;
    WriteLn;
  end;
  Min:=A[1,1];
  For I:=1 to 4 do begin
    For J:=1 to 2 do begin
      If A[I,J]<Min then //poisk minimalnogo elementa
        Min:=A[I,J];
    end;
  end;
  Min:=Min*2;
  WriteLn('Min*2=',Min);
  ReadLn;
End.

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;

Var
  A:array [1..4,1..2] of Byte;
  I,J:Byte;
  Min:Byte;
Begin
  Randomize;
  For I:=1 to 4 do begin
    For J:=1 to 2 do begin
      A[I,J]:=Random(10)+1; // zapolnenie slu4ajnimi 4islami ot 1 do 10
      Write(A[I,J],' ');
    end;
    WriteLn;
  end;
  Min:=A[1,1];
  For I:=1 to 4 do begin
    For J:=1 to 2 do begin
      If A[I,J]<Min then //poisk minimalnogo elementa
        Min:=A[I,J];
    end;
  end;
  For I:=1 to 4 do begin
    For J:=1 to 2 do begin
      If (A[I,J]=Min) and (J=1) then
        begin
          A[I,J]:=A[I,J]*2;
          A[I,J+1]:=A[I,J+1]*2;
        end;
      If (A[I,J]=Min) and (J=2) then
        begin
          A[I,J-1]:=A[I,J-1]*2;
          A[I,J]:=A[I,J]*2;
        end;
    end;
  end;
  Writeln;
  Writeln;
  For I:=1 to 4 do begin
    For J:=1 to 2 do    begin
      Write(A[I,J],' ');
    end;
    writeln;
  end;
  ReadLn;
End.