Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов

procedure TForm1.Button2Click(Sender: TObject);
 
    var
    i,j,g,r: integer;
    flag: boolean;
    begin
     with stringgrid1 do
    g:=0;
    r:=0;
    flag:=false;
    for j:=0 to m-1 do
    begin
    for i:=0 to n-1 do
    begin
    if a[i,j]>=0 then r:=r+1 else
     g:=g+1;
    end;
    if (r=g) then
    begin
    flag:=true;
    end;
    end;
    If flag then edit3.text:= 'есть такой столбец'
    else edit3.text:='Нет такого столбца';
    end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,g,r: integer;
    flag: boolean;
begin
flag:=false;
j:=0;
while(j<m) and not flag do
 begin
  g:=0;
  r:=0;
  for i:=0 to n-1 do
  if a[i,j]>0 then r:=r+1 else
  if a[i,j]<0 then g:=g+1;
  if (r=g) then flag:=true
  else j:=j+1;
 end;
If flag then edit3.text:= 'есть такой столбец'
else edit3.text:='Нет такого столбца';
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,g,r: integer;
    flag: boolean;
begin
flag:=false;
for j:=0 to n-1 do
 begin
  g:=0;
  r:=0;
  for i:=0 to n-1 do
  if a[i,j]>0 then r:=r+1 else
  if a[i,j]<0 then g:=g+1;
  if (r=g) then flag:=true
  else break;
 end;
If flag then edit3.text:= 'есть такой столбец'
else edit3.text:='Нет такого столбца';
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,g,r: integer;
    flag: boolean;
begin
flag:=false;
for j:=1 to 5 do
 begin
  g:=0;
  r:=0;
  for i:=1 to 6 do
   begin
    if a[i,j]>0 then r:=r+1;
    if a[i,j]<0 then g:=g+1;
   end;
  if (r=g) then
   begin
    flag:=true;
    break;
   end;
end;
If flag then edit1.text:= 'есть такой столбец'
else edit1.text:='Нет такого столбца';
 
end;