Массив: Получить массив B, присвоив его k-му элементу значение 0, если среди элементов k-го столбца матрицы нулей больше, чем единиц, иначе - 1

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;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i,j,n,m: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var k: integer;
    b: array[1..100]of string;
    st: string;
begin
  randomize;
  n:=strtoint(edit1.text);
  m:=strtoint(edit2.text);
  edit3.Text:='';
  for i:=1 to m do
    for j:=1 to n do
      stringgrid1.Cells[i,j]:=floattostr(random(2));
  St:='';
  for j := 1 to m do begin
    k:=0;
    for i := 1 to n do begin
      if stringgrid1.cells[i,j]='1'
        then inc(k)
        else dec(k);
    end;
    {edit3.Text:=edit3.Text+floattostr(k);  }
    if k<0 then b[j]:='0' else b[j]:='1';
    st:=st+b[j];
  end;
  label3.Caption:=st;
end;
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
  edit1.Text:='';
end;
 
procedure TForm1.Edit2Click(Sender: TObject);
begin
  edit2.Text:='';
end;
end.