помогите, пожалуйста!! ! Delphi

unit N91866057;

interface

uses
  Windows, SysUtils, Forms, Classes, Controls, StdCtrls, Grids;

type
  TArray = array of array of integer;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure SetStringGrid(Sender: TObject; a: TArray);
    function Sum(a: TArray; n: integer): integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.Sum(a: TArray; n: integer): integer;
var i: integer;
begin
  Result := 0;
  for i := 0 to High(a[0]) do
    inc(Result, a[n, i]);
end;

procedure TForm1.SetStringGrid(Sender: TObject; a: TArray);
var
  k, x, n, m: integer;
begin
  with (Sender as TStringGrid) do
  begin
    n := length(a);
    m := length(a[0]);
    RowCount := n;
    ColCount := m;
    x := 200 div n;
    Height := x * n + 10;
    for k := 0 to n - 1 do
      RowHeights[k] := x;
    x := 425 div m;
    Width := x * m + 10;
    for k := 0 to m - 1 do
      ColWidths[k] := x;
    for k := 0 to n - 1 do
      for x := 0 to m - 1 do
        Cells[x, k] := IntToStr(a[k, x])
  end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  N, M, i, j, k, t: integer;
  A: TArray;
begin
  if TryStrToInt(Edit1.Text, N) and TryStrToInt(Edit2.Text, M) then
  begin
    setlength(A, N, M);
    for i := 0 to N - 1 do
      for j := 0 to M - 1 do
        A[i, j] := random(101) - 50;
    SetStringGrid(StringGrid1, A);
    for i := 0 to N - 2 do
    begin
      k := i;
      for j := i + 1 to N - 1 do
        if Sum(A, j) < Sum(A, k) then
          k := j;
      if k <> i then
        for j := 0 to M - 1 do
        begin
          t := A[i, j];
          A[i, j] := A[k, j];
          A[k, j] := t
        end
    end;
    SetStringGrid(StringGrid2, A);
  end
  else
  begin
    MessageBox(0,'Введите корректные размеры матрицы',
      'Ошибка', MB_ICONERROR or MB_APPLMODAL or MB_OK);
    Edit1.SetFocus
  end
end;

initialization
  randomize;

end.

Могу сделать, пишите в личку

а зачем это тебе?