Delphi - двумерные массивы

[ralex35]

Дан массив В (4*5). Элементы массива ввести в программе. Найти первый положительный элемент и его индексы.

находит только последний положительный

procedure TForm1.Button1Click(Sender: TObject);
const a: array[0..4,0..3] of integer = ((-4, -1, -3,-5), (11, 5, 0,-5), (10, -7, -8,-5), (-6, -9, -2,-5),(1,-2,-3,-5));
var
i,j,max,mi,mj: integer;
k,l,z:string;
begin
  k:='';
  for i := 0 to 4 do
    for j := 0 to 3 do
    begin
      StringGrid1.Cells[i,j] := IntToStr(a[i,j]);
      if (a[i,j] > 0) then
      begin
        max:=a[i,j];
        mi:= i;
        mj:= j;
    end;
  Label3.Caption :='A[' + IntToStr(mi+1) + ', ' + IntToStr(mj+1) + '] = '+ IntToStr(max) ;
end;

  end;
end.

[newerow1989]

А не пробовали вставлять метку label

label lab;
...
begin
        max:=a[i,j];
        mi:= i;
        mj:= j;
        goto lab;
    end;
...
lab:

[ralex35]

У меня тогда половина массива пропадает и выдает все равно второй положительный элемент

[newerow1989]

Тогда

procedure TForm1.Button1Click(Sender: TObject);
label lab;
const a: array[0..4,0..3] of integer = ((-4, -1, -3,-5), (11, 5, 0,-5),
    (10, -7, -8,-5), (-6, -9, -2,-5),(1,-2,-3,-5));
var
i,j,max,mi,mj: integer;
k,l,z:string;
begin
  k:='';
  for i := 0 to 4 do
    for j := 0 to 3 do
      StringGrid1.Cells[i,j] := IntToStr(a[i,j]);

  for i := 0 to 4 do
    for j := 0 to 3 do
      if (a[i,j] > 0) then
      begin
        max:=a[i,j];
        mi:= i;
        mj:= j;
        goto lab;
      end;
  lab:
  Label3.Caption :='A[' + IntToStr(mi+1) + ', ' + IntToStr(mj+1) + '] = '+ IntToStr(max) ;
end;

[ralex35]

Массив выводит полностью,но первый положительный по прежнему не верно считает

[newerow1989]

У меня выводит A[2, 1] = 11 // пост 4

[ralex35]

У меня в начале на label lab ругался, пересохранила,уже все хорошо

и снова спасибо

[newerow1989]