Pascal. Двумерный массив.Получить новую матрицу путем деления всех элементов данной матрицы на ее наименьший по модулю элемент

const n=3; m=4;
var a:array[1..n,1..m] of real;
i,j:integer; min:real;
begin
Randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=10*random-5;
  write(a[i,j]:6:2);
  end;
  writeln;
  end;
min:=abs(a[i,j]);
for i:=1 to n do
 for j:=1 to m do
  if abs(a[i,j])<min then min:=abs(a[i,j]);
for i:=1 to n do
 for j:=1 to m do a[i,j]:=a[i,j]/min;
writeln('min = ',min:6:2);
writeln('Измененная матрица:');
for i:=1 to n do
 begin
 for j:=1 to m do write(a[i,j]:6:2);
 writeln;
end;
end.

Пример:
Исходная матрица:
 4.252.99 -2.67 -0.88
-0.803.69 -1.94 -1.18
-3.370.654.621.45
min =0.65
Измененная матрица:
 6.534.61 -4.11 -1.36
-1.235.68 -2.99 -1.81
-5.191.007.102.23