Найти минимальный по модулю элемент матрицы

begin
if (edit1.text=' ') or (edit2.text=' ') then showmessage ('заполните все поля')
else
begin
stringgrid1.colcount:=m;
stringgrid2.rowcount:=n;
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20)-10;
for j:=1 to m do
for i:=1 to n do
stringgrid1.cells[j-1,i-1]:=inttostr(a[i,j]);

var
  Form1: TForm1;
  a: array[1..20,1..20] of integer;
  m,n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблицы
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth;
  options:=options+[goEditing,goTabs]
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
//проверим ввод размеров
val(Edit1.Text,n,i);
if (i<>0)or not(n in [1..20])then
 begin
  ShowMessage('Неверно введено количество строк');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,m,i);
if (i<>0)or not(m in [1..20])then
 begin
  ShowMessage('Неверно введено количество столбцов');
  Edit2.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
for i:=1 to n do
for j:=1 to m do
 begin
  a[i,j]:=-10+random(21);
  StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,mn:integer;
begin
mn:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if abs(a[i,j])<abs(mn) then mn:=a[i,j];
Edit3.Text:='Минимальный по модулю элемент='+IntToStr(mn);
end;

var
  Form1: TForm1;
  min: integer;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.N2Click(Sender: TObject);
var mass: array[0..99,0..99] of integer;
    i, j: integer;
begin
    min:=999;
    for i:= 1 to 7 do
      for j:= 1 to 10 do
      begin
        mass[i-1, j-1]:= randomrange(-999,999);
        if min > abs(mass[i-1, j-1]) then
        min:= abs(mass[i-1, j-1]);
        StringGrid1.Cells[i-1, j-1]:= IntToStr(mass[i-1, j-1]);
      end;
end;
 
procedure TForm1.N7Click(Sender: TObject);
var strmin: string;
begin
  strmin:=IntToStr(min);
  ShowMessage(strmin+' - наименьшее число массива по модулю');
end;
 
procedure TForm1.N9Click(Sender: TObject);
begin
  Form2.Show;
end;
 
end.