Дан массив размерностью n*m. Поделить все элементы каждого столбца на наименьший по модулю элемент этого столбца — Pascal(Паскаль)

uses crt;
var
a:array[1..100,1..100] of real;
i,j,n,m:integer;
min:real;
begin
clrscr;
write('kolvo strok matrici=');readln(n);
write('kolvo stolbcov matrici=');readln(m);
randomize;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random(101)-50;
writeln('Ishodnaya matrica');
for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j]:10:3);
  writeln;
 end;
for j:=1 to m do
 begin
 min:=a[1,j];
 for i:=2 to n do
  if abs(a[i,j])<abs(min) then min:=a[i,j];
 for i:=1 to n do
  a[i,j]:=a[i,j]/min;
 end;
writeln('Matrica posle preobrazovaniy');
for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j]:10:3);
  writeln;
 end;
readln
end.