Массивы. Делфи.

[ByAlex]

В stringgrid'е обращение к элементам i,j отличается от обращения к матрицам! Т.е, если в матрице arr[i,j], то в stringgrid - Stringgrid.cells[j,i]. Вот так, вроде!
Вот так пробуй -

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    stringgrid1: TStringGrid;
    stringgrid2: TStringGrid;
    procedure btn1Click(Sender: TObject);
    procedure schet;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,j,m,n:Integer;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  m:=3;
  n:=3;
  schet;
end;

procedure TForm1.schet;
var
  t:Integer;
begin
  for i:=0 to n-1 do
  begin
    t:=0;
    stringgrid2.Cells[0,i]:=IntToStr(1);
    for j:=0 to m-1 do
      if stringgrid1.Cells[j,i]<stringgrid1.Cells[j+1,i] then
        Inc(t);
    if t=stringgrid1.ColCount-1 then
      stringgrid2.Cells[0,i]:=IntToStr(0);
  end;
end;

end.

[Step_UA]

for j:=0 to m-1 do //  должно быть до m-2

сравнивается j-й элемент со следующим, а m-1 - это последний элемент, т.к. нумерация с 0