Столбец, содержащий минимальный элемент, поменять местами с последним столбцом

var mas : array [1..5,1..3] of real;
i , j, k : integer ;
 imin,x : real;
Begin
With stringgrid1 do
begin
FixedCols:=0;
FixedRows:=0;
Colcount:=5;
RowCount:=3;
end;
 
 
With stringgrid2 do
begin
FixedCols:=0;
FixedRows:=0;
Colcount:=5;
RowCount:=3;
end;
 
 
// çàïîëíåíèå ìàòðèöû
 
for i:=1 to 5 do
  for j:=1 to 3 do
  begin;
 mas[i,j]:=Strtofloat(InputBox('ввод значений','',''));
  end;
   //вывод в стринггрид 1
for i := 0 to 4 do
  begin
   for j := 0 to 2 do
    StringGrid1.Cells[i,j]:=floatTostr(Mas[i+1,j+1]);
  end;
 
 imin:=mas[1,1];
for i:=1 to 5 do
for j:=1 to 3 do
begin
if mas[i,j] < imin  then
begin
 imin := mas[i,j] ;
 k:= j;
end;
end;
 
Edit1.text:=floattostr(imin);
  [COLOR="Red"]  for i:= 1 to 5 do begin
    if mas[i,j] =imin then
    begin
       x:=mas[i,k];
        mas[i,k]:=mas[i,3];
        mas[i,3]:=x;
                      end;
                      end;[/COLOR]
    //вывод матрицы
 for i := 0 to 4 do
  begin
   for j := 0 to 3 do
    StringGrid2.Cells[i,j]:=floatTostr(Mas[i+1,j+1]);
  end;
end;
end.

Edit1.text:=floattostr(imin); 
for i:= 1 to 5 do begin 
if mas[i,j] =imin then 
begin 
x:=mas[k,i]; 
y:=mas[5,1]; 
mas[k,i]:=y; 
mas[5,i]:=x; 
end; 
end;

if mas[i,j] =imin then

for i := 0 to 4 do
  begin
   for j := 0 to 3 do
    StringGrid2.Cells[j,i]:=floatTostr(Mas[i+1,j+1]);
  end;