[hrustnik]

спасибо что поомгли в прошлой теме, но сейчас запутался как выести минимальную строку и ее номер в memo

Код:

begin
randomize;
n:=random(8)+ 2;
n1:=random(8)+ 2;
Edit1.Text:=inttostr(n+1);
Edit2.Text:=inttostr(n1+1);

With StringGrid1 do begin
 RowCount:=n+1;ColCount:=n1+1;
 for i:=0 to n do begin
  sum:=0;
  for j:=0 to n1 do begin
   x[i+1,j+1]:= random(10)+2;
   Cells[j,i]:= FormatFloat('0.00',x[i+1,j+1]);
   sum:= sum + x[i+1,j+1];
  end;
  Memo1.Lines.Add('Сумма элементов '+inttostr(i+1)+'-ой строки = '+inttostr(sum));
 end;
end;
end;

end;