[franco_cvm]

Hola, tengo una matriz de m*n y, como dice el titulo, me pide encontrar el numero menor de cada fila.

Lo intente hacer, use dos botones (por las dudas de que con uno no me deje), al apretar el primero me carga valores en un stringgrid, el segundo boton, es para que en un memo me muestre el valor mas chico de cada fila, pero el segundo boton no anda.

aca el codigo:

Código Delphi [-]
const
n=10;
m=6;
type
Tmatriz= array [1..n, 1..m] of integer;
var
matriz:Tmatriz;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j: integer;
begin

 for i:= 1 to n do
  begin
   for j:= 1 to m do
    begin
     matriz[i,j]:= random(99)+1;
    end;
  end;
 for i:= 1 to n do
  begin
   for j:=1 to m do
    begin
     Stringgrid1.Cells [i,0]:= IntToStr(i);
     Stringgrid1.Cells [0,j]:= IntToStr(j);
     Stringgrid1.Cells [i,j]:= IntToStr(matriz[i,j]);
    end;
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
menor:string;
begin
menor:= Stringgrid1.Cells [1,1];
 memo1.clear;
 for j:= 1 to m do
  begin
   for i:= 1 to n do
    begin
     if Stringgrid1.Cells [i,j] < menor then
     menor:=Stringgrid1.Cells [i,j];
    end;
    memo1.Lines.Add(menor);
  end;

end;

Quisiera que me digan por que mi razonamiento en el boton2 esta mal,si se puede hacer todo en un solo boton, y la manera en que funciona un For dentro de otro For.

saludos, MUCHAS GRACIAS!!