Матрица с использованием StringGrid

[Artruman]

Найти с помощью StringGrid,который задан random'oм
сумму каждого столбика матрицы,поделить ее на маx eлемент данного столбика+
вывести куда-нить.

Набросал,но что-то не работает как надо.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var //arr:array[0..6,0..6]of integer;
    i,j,sum:integer;
begin
for i:=0 to 6 do
for j:=0 to 6 do
StringGrid1.Cells[i,j]:=inttostr(random(10));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
     i,j,sum,max:integer;
     rez:real;
begin
 for i:=0 to 6 do
  begin
   sum:=0;
   max:=0;
   for j:=0 to 6 do
    begin
     if max<strtoint(StringGrid1.Cells[i,j]) then max:=strtoint(StringGrid1.Cells[i,j]);
     sum:=sum+strtoint(StringGrid1.Cells[i,j]);
     if i=6 then
      begin
      rez:=sum/max;
      label1.Caption:=label1.Caption+' | '+floattostr(rez)+' | ';
     end;
    end;
   end;
end;
end.

[Toxa]

if j=6 then
begin
rez:=sum/max;
label1.Caption:=label1.Caption+' | '+floattostr(rez)+' | ';
end;
у тебя деление считалось только на последнем столбце

[Artruman]

в принципе я не вышел из последнего цикла: