задача на матрицу

[t992]

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

[t992]

Вот что сделал я



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
StringGrid2: TStringGrid;
Button1: TButton;
BitBtn2: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);



private
function simmet(s:string):boolean;
{ Private declarations }

public
{ Public declarations }
end;

const Nmax=10;
Type mat=array[1..Nmax,1..Nmax] of extended;
vek=array[1..Nmax] of extended;
var
Form1: TForm1;
A:mat;
B:vek;
N,M,i,j,s:integer;
implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
N:=5; Edit1.Text:=intToStr(N);
M:=4; Edit2.Text:=intToStr(M);
StringGrid1.RowCount:=N+1;
StringGrid1.ColCount:=M+1;
StringGrid2.RowCount:=M+1;
StringGrid1.Cells[0,0]:=' A';
StringGrid2.Cells[0,0]:=' B';
for i:=1 to N do
begin
StringGrid1.Cells[0,i]:=' i='+IntToStr(i);
StringGrid1.Cells[i,0]:=' j='+IntToStr(i);
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
N:=StrToInt(Edit1.Text);
M:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=N+1;
StringGrid1.ColCount:=M+1;
StringGrid2.RowCount:=M+1;
for i:=1 to N do
begin
StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid1.Cells[i,0]:=' j= '+IntToStr(i);
end;
end;

function TForm1.simmet(s: string): boolean;
var i:integer;
s1:string;
begin
s1:='';
for i:=1 to length(s) do begin
s1:=s[i]+s1;
end;
if s=s1 then simmet:=true else simmet:=false;

end;



end.