Получить массив B, присвоив его k-му элементу значение 1, если k-ая строка матрицы симметрична

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  A:array[1..21,1..21]of extended;
  B:array[1..21] of Extended;
  N,i,j,k: integer;
implementation
 
{$R *.dfm}
//Размерность матрицы(StringGrid)
procedure TForm1.Button1Click(Sender: TObject);
begin
   N:=strtoint(edit1.text) ;
   StringGrid1.RowCount:=n+1;
   StringGrid1.ColCount:=N+1;
   StringGrid2.RowCount:=N+1;
   StringGrid1.Cells[0,0]:='Массив A';
   StringGrid2.Cells[0,0]:='Массив B';
   StringGrid1.Height:=20*(n+1)+5+n;
   StringGrid1.Width:=20*(n+1)+5+n;
   StringGrid2.Height:=20*(n+1)+5+n;
   for i:=1 to n do 
    begin
      StringGrid1.Cells[0,i]:=inttostr(i);
      StringGrid1.Cells[i,0]:=inttostr(i);
     end;
end;
//Заполняем случайными числами
procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=1 to n do
    begin
     For j:=1 to n do 
      begin
       Stringgrid1.Cells[i,j]:=floattostr(random(50)-20);
       Stringgrid1.Update;
       sleep(50);
     end;
    end;
   Button3.Enabled:=true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  N:=3;
  StringGrid1.RowCount:=n+1;
  StringGrid1.ColCount:=N+1;
  StringGrid2.RowCount:=N+1;
  StringGrid1.Cells[0,0]:='Массив A';
  StringGrid2.Cells[0,0]:='Массив B';
  {StringGrid1.Height:=20*(n+1)+5+n;
  StringGrid1.Width:=20*(n+1)+5+n;
  StringGrid2.Height:=20*(n+1)+5+n;}
  for i:=1 to n do 
   begin
    StringGrid1.Cells[0,i]:=inttostr(i);
    StringGrid1.Cells[i,0]:=inttostr(i);
   end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
begin
  for i:=1 to n do 
   begin
    For j:=1 to n do 
     begin
      Stringgrid1.Cells[i,j]:='';
      Stringgrid2.Cells[0,j]:='';
     end;
   end;
end;
 
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
//Здесь получаем массив B(StringGrid2)
//Только как это сделать.
end;
 
end.

for k:=1 to n do
 begin
  b[k]:=1;
  i:=1;
  while(i<=n div 2)and(b[k]=1) do
  if a[k,i]<>a[k,n-i+1] then b[k]:=0
  else inc(i);
 end;

var
  Form1: TForm1;
  n,m:integer;
  a:array of array of integer;
implementation
 
{$R *.dfm}
//зададим некоторые параметры
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  defaultcolwidth:=30;
  scrollbars:=ssBoth;
 end;
with StringGrid2 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  defaultcolwidth:=30;
  scrollbars:=ssBoth;
 end;
SpinEdit1.MinValue:=2;
SpinEdit1.MaxValue:=30;
SpinEdit1.Value:=2;
SpinEdit2.MinValue:=2;
SpinEdit2.MaxValue:=30;
SpinEdit2.Value:=2;
end;
 
//создание матрицы
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=SpinEdit1.Value; //количество строк
m:=SpinEdit2.Value; //количество столбцов
setlength(a,n,m);
with StringGrid1 do
 begin
  colcount:=m;
  rowcount:=n;
  options:=options+[goEditing];
 end;
StringGrid2.ColCount:=n;
ShowMessage('Введите в таблицу целые числа');
end;
//выполнение задачи
procedure TForm1.Button2Click(Sender: TObject);
var b:array of integer;
    i,j,k,c:integer;
begin
//проверим равильность ввода элемнтов матрицы
k:=0;
i:=0;
while (i<n)and(k=0) do
 begin
  j:=0;
   while(j<m)and(k=0)do
    begin
     val(StringGrid1.Cells[j,i],a[i,j],c);
     if c<>0 then
      begin
       k:=1;
       ShowMessage('Не все элементы введены верно, поправьте')
      end
     else inc(j);
    end;
   if k=0 then inc(i)
  end;
setlength(b,n);
for k:=0 to n-1 do
 begin
  b[k]:=1;
  i:=1;
  while(i<m div 2)and(b[k]=1) do
  if a[k,i]<>a[k,m-i-1] then b[k]:=0
  else inc(i);
 end;
for i:=0 to n-1 do
StringGrid2.Cells[i,0]:=inttostr(b[i]);
end;