Работа c массивом в stringgrid

[Daishi]

Здрате. прошу вас о помощи ибо сам все не могу понять в чем ошибка.
надо найти сумму всех отрицательных чисел массива (данные должны быть введены вручную). после как казалось бы ввода всех данных) подскажите что я не так сделал

procedure TForm1.Button3Click(Sender: TObject);
var
m,n,a,b:integer;
k: extended;
c:array[1..20,1..20]of real;
begin
k:=0;
m:=strtoint(edit2.Text);
n:=strtoint(edit3.Text);
for b := 1 to m do
    for a:= 1 to n do
    c[m,n]:=strtofloat(stringgrid1.cells[m,n]);
       begin
       if c[m,n]<0 then
                  k:=k+c[m,n];
end;
edit1.Text:= floattostr(k)
end;

извините не в ту тему написал. Господа модераторы пожалуйста перекиньте эту тему в отдел для студентов сглупил я(

[veniside]

> подскажите что я не так сделал

1)

c[m,n]:=strtofloat(stringgrid1.cells[a,b]);

2) begin end не на месте

3) массив "с" не нужен

4) "извините" через И пишется. Проверочное слово: вина.

Итого:

procedure TForm1.Button3Click(Sender: TObject);
var
  m,n,i,j:integer;
  v, sum: extended;
begin
  sum :=0;
  m := strtointdef(edit2.Text, 0); 
  n := strtointdef(edit3.Text, 0);
  for i := 1 to m do
    for j:= 1 to n do begin
      //
      v := strtofloatdef(stringgrid1.cells[i,j], 0);
      if (v < 0) then
          sum := sum + v;
    end;
    //
  edit1.Text:= floattostr(sum)
end;

[Daishi]

спасибо большое)))