Не работает симетрия матрицы 3х3

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   const
  Nmax = 10; // Максимальная размерность массива
  type
  TMas1 = array[1..Nmax] of extended; // Объявление типа одномерного массива
  TMas2 = array[1..Nmax, 1..Nmax] of extended; // Объявление типа двумерного массива
  var
  A : TMas2;       // Объявление двумерного массива
  B : TMas1;  // Объявление одномерных массивов
  N, M, i, j :integer ;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  N := 4; // Размерность массива
  M := 4;
  Edit1.Text := IntToStr(N);
  Edit2.Text := IntToStr(M);
  // Задание числа строк и столбцов
  StringGrid1.ColCount := N + 1;
  StringGrid1.RowCount := M + 1;
  StringGrid2.RowCount := M + 1;
// Ввод в левую верхнюю ячейку таблицы названия массива
  StringGrid1.Cells[0, 0] := 'Массив A';
  StringGrid2.Cells[0, 0] := 'Массив B';
// Заполнение верхнего и левого столбцов поясняющими подписями
  for i:=1 to N do
    StringGrid1.Cells[0, i] := 'i='+ IntToStr(i);
  for i:=1 to M do
    StringGrid1.Cells[i, 0] := 'j='+ IntToStr(i);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 N:= StrToInt(Edit1.Text);
  M:= StrToInt(Edit2.Text);
// Задание числа строк и столбцов в таблицах
  StringGrid1.ColCount := N + 1;
  StringGrid1.RowCount := M + 1;
  StringGrid2.RowCount := M + 1;
// Заполнение верхнего и левого столбцов поясняющими подписями
  for i:=1 to M do
    StringGrid1.Cells[0, i] := 'i='+ IntToStr(i);
  for i:=1 to N do
    StringGrid1.Cells[i, 0] := 'j='+ IntToStr(i);
 
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
s,b :integer;
begin
s:=0;
b:=1;
// Заполнение массива A элементами из таблицы StringGrid1
  for i:=1 to M do
     for j:=1 to N do
         A[i,j]:= StrToFloat(StringGrid1.Cells[j,i]);
  for i:=1 to M do
 
begin
for j:=1 to (N div 2) do
     begin
        if((A[i,j]<>A[i,N-s]) or (N mod 2 = 1)) then
        begin
        b:=0;
        StringGrid2.Cells[0,i]:=IntToStr(0);
        end;
        s:=s+1;
     end;
     if(b<>0) then StringGrid2.Cells[0,i]:=IntToStr(1);
     s:=0;
     b:=1;
     end;
 
 
end;
 
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,b :integer;
begin
  // Заполнение массива A элементами из таблицы StringGrid1
  for i:=1 to M do
  for j:=1 to N do
  A[i,j]:= StrToFloat(StringGrid1.Cells[j,i]);
 
  for i:=1 to M do
  begin
    b:=1;
    for j:=1 to (N div 2) do
    if (A[i,j]<>A[i,N-j+1]) then
    begin
      b:=0;
      break; //Дальше проверять строку нет смысла
    end;
    StringGrid2.Cells[0,i]:=IntToStr(b);
  end;
end;