дан двумерный массив 3 на 3 найти сумму элементов массива между первым и Последним положительным числом

[qqq``]

Нужно запомнить 4 индекса а как потом это записать в последнем цикле я не знаю

procedure TForm1.Button2Click(Sender: TObject);
const N=3;
var
  i,j,konech,nachal:integer;
begin
 For i:=1 to n do begin
 for j:=1 to n do  begin
 If (Strtoint(stringgrid1.cells[i-1,j-1])) >0 then//Сравниваю ячейки на наличие первого положительного элемента begin
 nachal:=Strtoint(stringgrid1.cells[i-1,j-1]) ; //запоминаю ячейку с положительным числом
 break;
 end;
 end;
 end;
 For i:=3 downto n do begin
   For j:=3 downto n do begin
     If (Strtoint(stringgrid1.cells[i-1,j-1]))> 0 then  // Сравниваю ячейки на наличие последнего положительного элемента
     begin
     konech:=Strtoint(Stringgrid1.Cells[i-1,j-1]); // запоминаю ячейку с полоэжительным числом
     break;
     end;
     end;
   end;
    { For i:=nachal   to konech do begin }
   sum:=(strtoint(stringgrid1.cells[i-1,j-1])) + sum;
          label2.caption:=inttostr(sum);
        end;
 end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Heilagr]

Ты запоминаешь не адрес ячейки где хранится первое и последнее положительное число, а сами числа.

procedure TForm1.Button2Click(Sender: TObject);
  const N=3;
var
  i,j,i_nach,j_nach,i_kon,j_kon,sum:integer;
begin
  For i:=1 to n do begin
   for j:=1 to n do begin
    If (Strtoint(stringgrid1.cells[i-1,j-1])) >0 then//Сравниваю ячейки на наличие первого положительного элемента begin
     i_nach:=i-1 ; //запоминаю 
     j_nach=j-1;  //адрес первого положительного элемента
   break;
    end;
    end;
  end;
  For i:=3 downto n do begin
   For j:=3 downto n do begin
    If (Strtoint(stringgrid1.cells[i-1,j-1]))> 0 then // Сравниваю ячейки на наличие последнего положительного элемента
    begin
      i_kon:=i-1; // запоминаю адрес
      j_kon=j-1; // последнего положительного элемента
      break;
    end;
   end;
  end;
  sum:=0;
  for i:=i_nach+1 to i_kon-1 do 
   for j:=j_nach+1 to j_kon-1 do 
      sum:=sum+(strtoint(stringgrid1.cells[i,j]));
  label2.caption:=inttostr(sum);
end;
end;