Задача в Делфи!

[Марат05]

Вот Условие задачи.
1.Есть ли в данном массиве столбец,в котором равное количество положительных и отрицательных элементов ;
1 1 1 1 1 1
1 2 3 4 5 6
1 3 6 10 15 21
1 4 10 20 35 56
1 5 15 35 70 126
1 6 21 56 125 252

А вот мой код, помогите ее доделать и устранить все ошибки! Заранее спасибо!!!!

program Project1;

{$APPTYPE CONSOLE}
uses
  SysUtils;

type TForm1=array of array of integer;
procedure TForm1Button1Click(Sender: TObject);
var M:array [0..5, 0..5] of integer;
i, n , k, j:integer;
begin
For j:=0 to 5 do
begin
k:=0; n:=0;
For i:=0 to 5 do
begin
if M[j,i] >0 then inc(k) else inc(n);
end;
end;
 If k=n then write('Есть') else write('Нет ');
 end;
readln;
end.

[Fog]

Не забывай заплнять свой массив числами
var M:array [0..5, 0..5] of integer;
i, n , k, j,fl:integer; //fl это флаг наличия одинаково колич. отр и пол чисел
begin
fl:=0;
For i:=0 to 5 do
begin
k:=0; n:=0;
For j:=0 to 5 do
begin
if M[j,i] >0 then inc(k) else inc(n);
end;
If k=n then fl:=1;
end;
if fl=1 then writeln("Есть") else writeln("Нету");
readln;
end.