Найти столбец матрицы, который обладает наибольшей суммой модулей элементов

type
TForm1 = class(TForm)
Table1: TStringGrid;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
mas:array[1..6,1..6] of integer;
s: integer; // сумма модулей элементов
max: integer; // наиб. сумма модуля
min: integer; // минимальное значение столбца с наиб. суммой
i,j: integer;
begin
s:=0;
max:=0;
min:=0;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
mas[i,j]:=Random(100);
Table1.Cells[i,j]:=FloatToStr(mas[i,j]);
end;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
s:=s+abs(mas[i,j]);
if s>max then
begin
max:=s;
Edit1.Text:=IntToStr(j);
end;
end;
end;
end;
end;
end.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Table1: TStringGrid;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var mas:array[1..6,1..6] of integer;
    s:array[1..6] of integer;     max, maxN: integer; 
    min: integer; 
    i,j: integer;
begin
    for i:=1 to 6 do
    begin
        for j:=1 to 6 do
        begin
             mas[i,j]:=Random(100);
             Table1.Cells[i,j]:=FloatToStr(mas[i,j]);
        end;
    end;
    for i:=1 to 6 do
    begin
        s[i]:=0;
        for j:=1 to 6 do
        begin
           s[i]:=s[i]+abs(mas[i,j]);
        end;
    end;
    max:=1;
    For i:=1 to 6 do
    begin
        if s[i]>max then
        begin
            max:=s[i];
            maxN:=i;
        end;
    end;
    Label3.Caption:=IntToStr(maxN);
    min:=100;
    For j:=1 to 6 do
        if mas[maxN,j]<min then min:=mas[maxN,j];
    Label4.Caption:=IntToStr(min);
end;

end.