Delphi. 1, если элементы к-й строки матрицы упорядочены по убыванию

[rager06]

Привет всем! Помогите советом, пожалуйста! Задание такое:

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

Я процедуру создал, но не работает. Где я ошибся?

procedure TForm1.doArray;
var i, j, m, n: integer;
    flag: boolean;
    NxMArray: array [1..100, 1..100] of integer;
    B: array [1..100] of integer;
begin
  for i := 0 to StringGrid1.ColCount do
    begin
      flag := True;
      for j := 0 to StringGrid1.RowCount do
        if NxMArray[i,j]>NxMArray[i,j-1] then
          begin
            flag := False;
            Break;
          end;
        if flag = True then
          B[i] := 1
          else
            B[i] := 0;
    Label5.Caption := IntToStr(B[i]);
    end;
end;