номера столбцов, где найдлинее цепь одинаковых елементов

[Makspane]

условие программы, дана матрицая, найти+=количество рядков, где хотяб один нулевый елемент, 2) номера столпцов, в которых находится найдлинее цепь одинаковых елементов..

я написал прогу, но она выводит только одну первую попавшеюся найдлиншую цепь, а есле еще есть такая же по длине, он ее уже не учитывае, А НАДО ЧТОБ ЕЕ ТОЖ УЧИТЫВАЛ.... помогите..
unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Label3: TLabel;
Label4: TLabel;
ListBox1: TListBox;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
n,m,i,j,kol,flag,max,num:integer;
mass:array [1..100,1..100] of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
listbox1.Clear;
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
stringgrid1.ColCount:=m;
stringgrid1.RowCount:=n;

for i:=1 to n do
for j:=1 to m do
begin
mass[i,j]:=random(11)-5;
stringgrid1.Cells[j-1,i-1]:=inttostr(mass[i,j]);
end;
flag := 0;
kol:=0;
for i:=1 to n do
begin
for j:=1 to m do
if mass[i,j]=0 then flag := 1;
if flag = 1 then
kol:=kol+1;
flag :=0;
end;

label3.Caption:='Количество строк, которые содержат нуливой элемент = ' + inttostr(kol);

kol:=0;
max:=0;
num:=0;



for i:=1 to m do
begin
kol:=1;
for j:=1 to n-1 do
if mass[j,i] = mass[j+1,i] then
begin
kol:=kol+1;
if max<kol then
begin
max:=kol;
num:=i;
end;
end
end;

label4.Caption:='NOMER = ' + inttostr(num);
label5.Caption:= 'kolvo = ' +inttostr(max);
end;

end.

[Malgor]

думаю если num сделать текстовой (или другую переменную ввести) то это будет выглядеть так

for i:=1 to m do
begin
kol:=1;
for j:=1 to n-1 do
if mass[j,i] = mass[j+1,i] then
begin
kol:=kol+1;
if max<kol then
begin
max:=kol;
if num<>'' then
num:=inttistr(i)
else
num:=num+', '+inttistr(i)
end;
end
end;

label4.Caption:='NOMER = ' + num;
label5.Caption:= 'kolvo = ' +inttostr(max);
end;

как-то так.