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

procedure TForm3.Button1Click(Sender: TObject);
var mas : array [1..5,1..3] of real;
i , j , imin: integer ;
amin,x : real;
Begin
// заполнение матрицы
Randomize;
for i:=1 to 5 do
  for j:=1 to 3 do begin;
    mas[i,j]:=random(10)-2;
    end;
    // вывод матрицы
for i := 1 to 5 do
 begin
   for j := 1 to 3 do
   Memo1.Text:=Memo1.Text+FloatToStr(mas[i,j])+'  ';
   Memo1.Text:=Memo1.Text+#13#10;
 end;
 // Столбец, содержащий минимальный элемент, поменять местами с первым столбцом.
 Memo1.Lines.Add(' ');
        amin:=mas[1,1];
for i:=1 to 5 do
for j:=1 to 3 do
if mas[i,j]< amin then
   begin
     amin:=mas[i,j];
     imin:=j
   end;
for i:=1 to 5 do
   begin
     x:=mas[i,imin];
     mas[i,imin]:=mas[i,3];
     mas[i,3]:=x;
   end;
 
       // вывод матрицы
for i := 1 to 5 do
 begin
   for j := 1 to 3 do
   Memo1.Text:=Memo1.Text+FloatToStr(mas[i,j])+'  ';
   Memo1.Text:=Memo1.Text+#13#10;
 end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var mas : array [1..5,1..3] of integer;
i , j ,k,x, imin: integer ;
 
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;
 
 
 
 
// заполнение матрицы
Randomize;
for i:=1 to 5 do
  for j:=1 to 3 do
  begin;
    mas[i,j]:=random(10)-2;
  end;
   //вывод матрицы  до
for i := 0 to 4 do
  begin
   for j := 0 to 2 do
    StringGrid1.Cells[i,j]:=IntTostr(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] ;
end;
end;
 
Edit1.text:=Inttostr(imin);
For i:=1 to 5 do
for j:=1 to 3 do
   begin
   if mas[i,j]=imin then
     begin
     for k:=1 to 3 do
      begin
       x:=mas[1,k];
        mas[1,k]:=mas[i,k];
        mas[i,k]:=x;
        end;
      end;
   end;
    //вывод матрицы после
 for i := 0 to 4 do
  begin
   for j := 0 to 3 do
    StringGrid2.Cells[i,j]:=IntTostr(Mas[i+1,j+1]);
  end;
end;
end.

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    '1'..'9',#8:;
    '0': if Length(Edt1.Text) = 0 then Key :=#0;
    ',','.':
      begin
        if Pos(',',edt1.Text)<>0 then key:=#0
          else
            key:=#44;
      end;
    #1..#7,#9..#43,#45,#58..#255: key:=#0;
  end;
end;