С массива [Bij]m,n построить массив С, исполняя деление каждого элемента массива В на min элемент в столбце, в котором он находится (1<=n<=15 1<=m<=25) - Pascal(Паскаль)

program zad;
const
n=15;
m=25;
var
b:array[1..n,1..m] of real;
i,j:integer;
k:integer;
c:array[1..100] of integer;
minn:array[1..100] of real;
min:real;
begin
  randomize;
  writeln('исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      b[i,j]:=random(11)-5;
      write(b[i,j]:2:0);
    end;
    writeln;
  end;
  writeln;
  writeln;
  j:=1;
 
   repeat
   min:=b[1,j];
   for i:=1 to n do
   begin
     if b[i,j]<=min then
     min:=b[i,j];
     minn[j]:=min;
   end;
   j:=j+1;
   until j>m;
   writeln;
   writeln;
   writeln('преобразованный массив:');
   for i:=1 to n do
   begin
     for j:=1 to m do
     begin
       b[i,j]:=b[i,j]/minn[j];
       write(b[i,j]:2:1);
     end;
     writeln;
   end;
  readln;
end.