Найти сумму наименьших значений строк матрицы

implementation
 
{$R *.dfm}
 
var m,n:integer;
A:array[1..10,1..15]of integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
m:=strtoint(edit1.Text);
n:=strtoint(edit2.Text);
if (m>0)and(m<=10)then
   begin
   stringgrid1.ColCount:=m;
   if (n>0)and(n<=15)then
   stringgrid1.RowCount:=n
   else showmessage('ââåñòè êîëè÷åñòâî ñòîëáöîâ >0 è <=15');
   end
else showmessage('ââåñòè êîëè÷åñòâî ñòðîê >0 è <=10');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,s,min:integer;
begin
for i:=1 to m do
for j:=1 to n do
a[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);
min:=a[1,1];
s:=0;
for i:=1 to m do
for j:=1 to n do
   begin
   if min>a[i,j]then
   min:=a[i,j];
   s:=s+min;
   end;
edit3.Text:=inttostr(s);
end;
 
end.

stringgrid1.ColCount:=m;
   if (n>0)and(n<=15)then
   stringgrid1.RowCount:=n

stringgrid1.RowCount:=m;
   if (n>0)and(n<=15)then
   stringgrid1.ColCount:=n