наименьший элемент каждой четной строки матрицы

[Siluet]

Определить наименьший элемент каждой четной строки матрицы А(n,m) (Delphi)

procedure TForm1.Button2Click(Sender: TObject);
begin   x:=0;x1:=0;k:=0;k1:=0;
for i:=1 to StrToInt(edit1.Text) do begin
  for j:=1 to StrToInt(edit1.Text) do begin
   a[i,j]:=random(10)-4;
   StringGrid1.Cells[i-1,j-1]:=IntToStr(a[i,j]);
   end;end;
    for i:=1 to StrToInt(edit1.Text) do  begin
    for j:=1 to StrToInt(edit1.Text) do  
  if i mod 2 = 1 then if min< a[i,j] then begin min:=a[i,i];
  Memo1.Lines.Text:=Memo1.Lines.Text+IntToStr(min)+#13;

Прога не работает поиогите плз.. в чем дело ?

[Deamonig]

procedure TForm1.Button2Click(Sender: TObject);
var min[1..n] of integer;
begin   x:=0;x1:=0;k:=0;k1:=0;
for i:=1 to StrToInt(edit1.Text) do begin
  for j:=1 to StrToInt(edit1.Text) do begin
   a[i,j]:=random(10)-4;
   StringGrid1.Cells[i-1,j-1]:=IntToStr(a[i,j]);
   end;end;
    for i:=1 to StrToInt(edit1.Text) do 
    min[i]:=a[i,1];

    for i:=1 to StrToInt(edit1.Text) do 
    for j:=1 to StrToInt(edit1.Text) do  
  if i mod 2 = 1 then if min[i]>a[i,j] then  min[i]:=a[i,i];

// теперь у тебя в елементах min[2],min[4] и т.д найменьшие елементы строк, и выводь их куда тебе надо
end;