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

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;