[Kinect]

Парни очень нужна ваша помощь.
Есть задание:
Задана матрица размером NxM. Получить массив B, присвоив его k-му элементу значение 1, если k-я строка матрицы симметрична, и значение 0 в противном случае.

Всё сделал, а вот получить и вывести массив B не выходит.
Помогите пожалуйста.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113

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>//Здесь получаем масси B(StringGrid2)</b> <b>//Только как это сделать.</b> end;   end.