Дана матрица A размером nxm. Определить k - количество особых элементов массива A, считая его элемент особым, если он больше суммы

[GalaiAnton]

Дана матрица A размером nxm. Определить k - количество особых элементов массива A, считая его элемент особым, если он больше суммы остальных элементов его столбца.

var
  Form1: TForm1;
  A:Array[1..1000,1..1000] of integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='  i,j';
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  i,j:Integer;
  l:array of Integer;
Begin
  Randomize;
  SetLength(l,4);
  StringGrid1.RowCount:=StrToint(Edit1.Text) + 1;
  StringGrid1.ColCount:=StrToInt(Edit2.Text) + 1;
  For i:=1 To StringGrid1.RowCount Do
    StringGrid1.Cells[0,i]:=IntToStr(i);
  For i:=1 To StringGrid1.ColCount Do
    StringGrid1.Cells[i,0]:=IntToStr(i);
  For i:=1 To StringGrid1.RowCount Do
    For j:=1 To StringGrid1.ColCount Do
      Begin
        A[i,j]:=Random(89) + 10;//Генерируем числа в 10..99
        StringGrid1.Cells[i,j]:=IntToStr(A[i,j]);
      End;
End;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  i,j,k,summ:Integer;
begin
 k:=0;
  For i:=1 To StringGrid1.RowCount Do
  For j:=1 To StringGrid1.ColCount Do
  summ:=0;
  summ:=summ+A[i,j];
  If  A[i, j] > (summ-A[i, j]) Then
inc(k);
Label3.Caption:='В массиве ' + IntToStr(k) + ' особых элементов';
end;
end.

В Label3 отображается 0,хотя есть особые элементы,подскажите,пожалуйста,что надо подправить,чтобы оно выдавало ответ,а то запарился....

[Serge_Bliznykov]

чисто формально

  For i:=1 To StringGrid1.RowCount Do
    For j:=1 To StringGrid1.ColCount Do
...
       StringGrid1.Cells[i,j]:=IntToStr(A[i,j]);

ошибка.
в StringGrid сначала идёт индекс СТОЛБЦА, потом индекс СТРОКИ

тут забыли операторные скобки (begin / end)

For i:=1 To StringGrid1.RowCount Do
  For j:=1 To StringGrid1.ColCount Do
  summ:=0;
  summ:=summ+A[i,j];
  If  A[i, j] > (summ-A[i, j]) Then

вы удивитесь, но в цикле выполняется только один оператор:

  For i:=1 To StringGrid1.RowCount Do
    For j:=1 To StringGrid1.ColCount Do
        summ:=0;

  строки ниже ВНЕ ЦИКЛА!!
  summ:=summ+A[i,j];
  If  A[i, j] > (summ-A[i, j]) Then
      inc(k);