[hrustnik]

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

Код:

begin
 Result := 0;
  SumOld := 0;
  Sum := 0;
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
    SumOld := Sum;
    Sum := 0;
  for j:=0 to n1 do begin
   x[i+1,j+1]:= random(10)+2;
   Cells[j,i]:= IntToStr(x[i+1,j+1]);
   sum:= sum + x[i+1,j+1];
   if Sum < SumOld then Result := i;
  end;
  Memo1.Lines.Add('Сумма элементов '+inttostr(i+1)+'-ой строки = '+inttostr(sum));
 end;
 Memo1.Lines.Add('Минимальный элемент в '+inttostr(Result+1) + '-ой строке');
end;

end;