Определить номера строк массива, содержащих только положительные элементы и найти среди них наибольший

procedure TForm9.Button2Click(Sender: TObject);
var
max,t,i,j: integer;
begin
Edit3.Text:=' ';
Edit4.Text:=' ';
for i := 0 to n-1 do
begin
t:=0;
if D[i,0]>0 then
begin
max:=D[i,0];
for j:=0 to m-1 do
if (D[i,j]<0)then
t:=1;
for j:=0 to m-1 do
if (D[i,j]>0) and (D[i,j]>max) then
max:=D[i,j];
end;
if t=0 then
Edit3.Text:=Edit3.Text+' '+inttostr(i);
Edit4.Text:=Edit4.Text+' '+inttostr(max);
end;
end;

procedure TForm9.Button1Click(Sender: TObject);
var
i,j,n,m:integer;
begin
Randomize;
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
for i := 0 to n-1 do
for j := 0 to m-1 do
begin
D[i,j]:= Round(Sin(Random(100))*100);
end;
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=m+1;
with StringGrid1 do
begin
  i:=0;
  for j :=1 to RowCount do
  Cells[i,j]:=inttostr(j);
  j:=0;
  for i :=1 to ColCount do
  Cells[i,j]:=inttostr(i);
end;
with StringGrid1 do
for i := 1 to n do
for j := 1 to m do
Cells[j,i]:=inttostr(D[i-1,j-1]);
end;

procedure TForm9.Button2Click(Sender: TObject);
var
max,flag,i,j: integer;
begin
Edit3.Text:=' ';
Edit4.Text:=' ';
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
for i:=0 to n-1 do
begin
max:=-999999999;
flag:=0;
for j:=0 to m-1 do
begin
if ((D[i,j]>max) and (D[i,j]>0))
then max := D[i,j]; 
if (D[i,j]) <0 then
begin
flag:=1;Break;
end; 
end;
if (flag=0) then
Edit3.Text:=Edit3.Text+' '+inttostr(i);
Edit4.Text:=Edit4.Text+' '+inttostr(max);
end;
end;

if (flag=0) then
begin
Edit3.Text:=Edit3.Text+' '+inttostr(i);
Edit4.Text:=Edit4.Text+' '+inttostr(max);
end;