Проверка строки матрицы на симметричность.

[EVIL]

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

Короче набодяжил форму и программу до того момента, когда она будет рповерять строки матрицы и писать симметрична или нет.

unit Unit1;
interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid2: TStringGrid;
    Button2: TButton;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { 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: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.Button1Click(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;

end.

Laba4.zip
Вопрос у меня возник такой, как это записать, чтоб она смотрела и если симметрично ты выводила одно а нет то другое?
Помогите пожалуйста! Буду очень благодарен!

Для оформления кода использовать тег [СОDЕ][/CODE] или кнопку #(расшеренный режим). Модератор.

[Abbatik]

1. Склей всю строку.

 ...for i:=1 to n do begin {n-кол-во столбцов}
 s:=s+stringgrid1.cells[i,j];{j-номер строки}
 end;
{s лучше брать как глобальную переменную}

2. Проверь является ли результат симметричным.

function 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 siimet:=true else simmet:=false;
end;
{Функция возвращает true если строка симметрична}

3. Проверяешь.

...
if simmet(s) then b:=1 else b:=0;
...
{b-итоговый массив (по условию)}

[EVIL]

Спасибо огромное!!!