Массив: Строку с наименьшей суммой элементов поменять местами со столбцом, имеющим тот же номер

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ComCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    UpDown1: TUpDown;
    Edit1: TEdit;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Label1: TLabel;
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Numerac;
var n,i:integer;
begin
n:=StrToInt(Form1.Edit1.Text);
 for i:=1 to n do begin
   Form1.StringGrid1.cells[i,0]:=IntToStr(i+1);
  end;
  Form1.StringGrid1.cells[n,0]:='Sum';
 
end;
 
 
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var n,i:integer;
begin
 
 with StringGrid1 do                     //отчистка таблицы
    for i:=1 to ColCount do
    Cols[i].Clear;
  with StringGrid1 do                     //отчистка таблицы
    for i:=1 to RowCount do
    Rows[i].Clear;
 
n:=StrToInt(Edit1.Text);                 //размер таблицы
StringGrid1.ColCount:=n+2;
StringGrid1.RowCount:=n+2;
 
Numerac;
end;
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
var i,n,y:Integer;
begin
n:=StrToInt(Edit1.Text);
 Randomize;                                //рандом
 if RadioGroup1.ItemIndex=1                //если отмечен 1, то
  then begin
   for i :=1 to n-1 do
   for y :=1 to n do
     begin
      StringGrid1.Cells[i,y]:= IntToStr(Random(50));
     end;
  end
  else
   begin
    with StringGrid1 do
    for i:=1 to ColCount-1 do
    Cols[i].Clear;                              //отчистка таблицы
   end;
 
 Numerac;
end;
 
 
 
procedure TForm1.FormActivate(Sender: TObject);
begin
 Numerac;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var c,r:Integer;  //номер колонки и строки таблицы
  s:Integer;    //всего медалей у команды
  i,j,y:Integer;    //номер строки. используется во время сортировки
  n:Integer;
  min:integer;
   ar:array[1..10] of Integer;
begin
  n:=StrToInt(Edit1.Text);
   for r:=1 to StringGrid1.rowcount do
  begin
     s:=0;
    for c:=1 to n do
 
      if StringGrid1.Cells[c,r] <> ''then
        s:=s+StrToInt(StringGrid1.Cells[c,r])
      else
        StringGrid1.Cells[c,r]:='0';
     StringGrid1.cells[n,r]:=IntToStr(s);
     s:=0;
  end;
 
 
  for i :=1 to n do
  ar[i]:=StrToInt(StringGrid1.Cells[n,i]);
 
  min:=1;
  for i:=2 to n do
    if ar[i]<ar[min] then min:=i;
  Label1.Caption:='Минимальный элемент массива: '
                  +IntToStr(ar[min])+#13+
                   'Номер элемента: '+IntToStr(min);
 
 
 
 
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of real;
    n,i,j,k,m:integer;
    sm,mn,x:real;
begin
randomize;
n:=strtoint(edit1.Text);
stringgrid1.ColCount:=n;
stringgrid1.RowCount:=n;
stringgrid2.ColCount:=n;
stringgrid2.RowCount:=n;
setlength(a,n,n);
mn:=0;
k:=0;
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=10*random;
  stringgrid1.Cells[j,i]:=floattostrF(a[i,j],ffFixed,6,2);
  if i=0 then mn:=mn+a[i,j];//найдем сумму в 0 строке, она пока мин
 end;
//найдем сумму меньше
for i:=1 to n-1 do
 begin
  sm:=0;
  for j:=0 to n-1 do
  sm:=sm+a[i,j];
  if sm<mn then
   begin
    mn:=sm;
    k:=i;
   end;
 end;
edit2.Text:='Минимальная сумма в строке '+inttostr(k+1)+
             ' ='+floattostrF(mn,ffFixed,6,2);
for i:=0 to n-1 do
 begin
  x:=a[i,k];
  a[i,k]:=a[k,i]; //обменяем строку и столбец
  a[k,i]:=x;
 end; 
for i:=0 to n-1 do
for j:=0 to n-1 do
stringgrid2.Cells[j,i]:=floattostrF(a[i,j],ffFixed,6,2)
end;