Переставить местами строку, содержащую минимальный элемент и последнюю строку

min := Massiv[1,1];
Num_Stroki := 1;
for i := 1 to 3 do
begin
     for j := 1 to 4 do
     begin
           if min > Massiv[i, j] then
           begin
                 min := Massiv[i, j];
                 Num_Stroki := i;
            end;
     end;
end;
{Потом заменяем}
Temp := 0;
    for j := 1 to 4 do
    begin
          Temp := Massiv[3, j];
           Massiv[3, j] := Massiv[Num_Stroki, j];
           Massiv[Num_Stroki, j]:= Temp;
    end; 
    end;

uses crt;
const n=4;
      m=3;
var a:array[1..n,1..m] of integer;
    i,j,x,min,imin:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
min:=a[1,1];
imin:=1;
for i:=1 to n do
 for j:=1 to m do
  if a[i,j]<min then
   begin
    min:=a[i,j];
    imin:=i;
   end;
Writeln('Min ',min);
for i:=1 to n do
 begin
  x:=a[n,i];
  a[n,i]:=a[imin,i];
  a[imin,i]:=x;
 end;
for i:=1 to n do
 begin
  for j:=1 to m do
   Write(a[i,j]:4);
  Writeln;
 end;
Readln;
end.

for i:=1 to n do
 for j:=1 to m do
  Readln(a[i,j]);
for i:=1 to n do
 begin
  for j:=1 to m do
   Write(a[i,j]:4);
  Writeln;
 end;

for i:=1 to m do