Задана матрица размером NxM. Определить k – количество “особых” элементов матрицы, считая элемент “особым”, если он больше суммы о

[Маленыч]

Здраствуйте!
Прошу прощения за ошибку в заголовке, так как изменить его уже не могу. Задание другое.
Возникли ошибки при выполнении программы. Задание следующее:

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

Если установленно количество строк = количество столбцов все выполняется превосходно, но если количество столбцов превышает количество строк, происходит ошибка.
Текст программы:

unit Unit1;

interface

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

const
  MaxSize=10;
type
  TForm1 = class(TForm)
    lblN: TLabel;
    lblM: TLabel;
    edtN: TEdit;
    edtM: TEdit;
    btnNxM: TButton;
    strngrdA: TStringGrid;
    strngrdB: TStringGrid;
    btnRes: TButton;
    lblErr: TLabel;
    mmo1: TMemo;
    procedure btnNxMClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnResClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i:Integer;
begin
  for i:=1 to strtoint(edtN.Text) do
    begin
      strngrdA.cells[0,i]:='i='+FloatToStr(I);
      strngrdB.cells[0,i]:='i='+FloatToStr(I);
    end;
  for i:=1 to strtoint(edtM.Text) do
    strngrdA.cells[i,0]:='j='+FloatToStr(I);
end;

procedure TForm1.btnNxMClick(Sender: TObject);
var
  i:Integer;
begin
  strngrdA.RowCount:=StrToInt(edtN.Text)+1;
  strngrdA.ColCount:=StrToInt(edtM.Text)+1;
  strngrdB.RowCount:=StrToInt(edtN.Text)+1;
  strngrdB.ColCount:=StrToInt(edtM.Text)+1;
  for i:=1 to strtoint(edtN.Text) do
    begin
      strngrdA.cells[0,i]:='i='+FloatToStr(I);
      strngrdB.cells[0,i]:='i='+FloatToStr(I);
    end;
  for i:=1 to strtoint(edtM.Text) do
    strngrdA.cells[i,0]:='j='+FloatToStr(I);
end;



procedure TForm1.btnResClick(Sender: TObject);
var
  i,j,k,n,m,save:integer;
  a,b:array [1..MaxSize,1..MaxSize] of Extended;
begin
  n:=strngrdA.RowCount-1;
  m:=strngrdA.ColCount-1;
  for j:=1 to m do
    for i:=1 to n do
      a[i,j]:=StrToFloat(strngrdA.cells[i,j]);
  for i:=1 to n do
    begin
      save:=1;
      k:=m;
      for j:=1 to m do
        begin
          if a[j,i]<>a[k,i] then
            begin
              save:=0;
              break;
            end;
          Dec(k);
        end;
      strngrdB.cells[1,i]:=IntToStr(save);
    end;
end;

end.

Скриншот:



Программа (rar архив, файл проекта - Project1): http://programmersforum.ru/attachmen...1&d=1350819846

Прошу помочь разобраться с данной проблемой.
Спасибо.

[VIK_aka_TOR]

for j:=1 to m do
    for i:=1 to n do
      a[i,j]:=StrToFloat(strngrdA.cells[i,j]);

в стрингриде, насколько я помню, сперва идет количество столбцов, а затем строк... помню точно, что если пишется a[i,j] то будет cells[j,i]... поиграйся с индексами...

[dementar]

for j:=1 to m do
for i:=1 to n do

поменяй местами m и n

[pis_an]

Задана матрица размером NxM. Определить k – количество “особых” элементов матрицы, считая элемент “особым”, если он больше суммы остальных элементов своего столбца.

ПОМОГИТЕ, ПОЖАЛУЙСТА!!!