Строку содержащую наименьший элемент массива поменять местами с последней строкой

Const n = 5; m=3;
Var A : array [1..n, 1..m] of integer;
    i, j, i_min, j_min, k: integer;
begin
Randomize;
For i:=1 to n do
    begin
    For j:=1 to m do A[i,j]:=random(10);
    end;
Writeln('Array A:');
For i:=1 to n do
    begin
    For j:=1 to m do Write(A[i,j]:3);
    Writeln;
    end;
i_min:=1;
j_min:=1;
For i:=1 to n do
    begin
    For j:=1 to m do
        begin
        If (A[i,j]<A[i_min,j_min]) then
           begin
           i_min:=i;
           j_min:=j;
           end;
        end;
    end;
Writeln(i_min);
Writeln(j_min);
If (i_min<>n) then
   begin
   For j:=1 to m do
       begin
       k:=A[i_min,j];
       A[i_min,j]:=A[n,j];
       A[n,j]:=k;
       end;
   end;
Writeln('New array A:');
For i:=1 to n do
    begin
    For j:=1 to m do Write(A[i,j]:3);
    Writeln;
    end;
end.