Delphi. Массивы

[Tony Hudson]

Все доброго вечера. Вот значит задачка: Дана вещественная матрица размером NхM, в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на ее наименьший по модулю элемент.
Я ее решил, хотя правильно или нет, не знаю, но ответы вроде выдает

procedure TForm1.Button1Click(Sender: TObject);
var n,m,i,j:integer; a:array[1..100,1..100] of real; min:real;
begin
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
stringgrid1.RowCount:=n;
stringgrid2.RowCount:=n;
stringgrid1.ColCount:=m;
stringgrid2.ColCount:=m;
for i :=0 to n-1 do
begin
for j:=0 to m-1 do
begin
a[i,j]:=random(100);
stringgrid1.Cells[i,j]:=floattostr(a[i,j]);
end;
end;
min:=abs(a[1,1]);
for i := 0 to n-1 do
begin
for j:=0 to m-1 do
if abs(a[i,j])<min then min:=abs(a[i,j]);
end;
for i :=0 to n-1 do
begin
for j:=0 to m-1 do
begin
begin
a[i,j]:=a[i,j]/min;
stringgrid2.Cells[i,j]:=floattostr(a[i,j]);
end;
end;
end;
end;


end.

Теперь мне нужно ее переделать в димаческий массив. Не подскажите как это осуществлить?

procedure TForm1.Button1Click(Sender: TObject);
var n,m,i,j:integer; a:array of array of real; min:real;
begin
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
stringgrid1.RowCount:=n;
stringgrid2.RowCount:=n;
stringgrid1.ColCount:=m;
stringgrid2.ColCount:=m;
Setlength(a,m,n);
for i :=0 to n-1 do
begin
for j:=0 to m-1 do
begin
a[i,j]:=random(500);
stringgrid1.Cells[i,j]:=floattostr(a[i,j]);
end;
end;
min:=abs(a[1,1]);
for i :=0 to n-1 do
begin
for j:=0 to m-1 do
if abs(a[i,j])<min then min:=abs(a[i,j]);
end;
for i :=0 to n-1 do
begin
for j:=0 to m-1 do
begin
begin
a[i,j]:=a[i,j]/min;
stringgrid2.Cells[i,j]:=floattostr(a[i,j]);
end;
end;
end;
end;


end.

Мои предположения, но потом у меня ошибка выскакивает, но при маленьких значениях программа работает правильно. Ошибка вот такая: " Floating point division by zero ". Это ошибка деления на 0, только не могу понять где ее исправить.

[Tony Hudson]

Вопрос таков:" Как сделать генерацию чисел, не с 0, а с 1? "

[Stilet]

...:=1+random(500);

[Tony Hudson]

Спасибо огромное

[Stilet]

Пожалуйста.