Вывести минимальный элемент матрицы, и потом на этот элемент поделить все ее числа

type TasksMatrix = array of array of Real;
 
var matrixA: TasksMatrix;
    i,j,ColumnCount,RowCount: Integer;
    min: Real;
 
begin
    Randomize;
    Write('Enter row count: ');
    ReadLn(RowCount);
    Write('Enter column count: ');
    ReadLn(ColumnCount);
    WriteLn;
    SetLength(matrixA, RowCount, ColumnCount);
    for i := 0 to RowCount-1 do
    begin
        for j := 0 to ColumnCount-1 do
        begin
           matrixA[i,j] := Random*100;
           Write(matrixA[i,j]:0:2,' ');
        end;
        WriteLn;
    end;
    min := matrixA[0,0];
    for i := 0 to RowCount-1 do
    begin
        for j := 0 to ColumnCount-1 do
        begin
           if matrixA[i,j] < min then
           begin
               min := matrixA[i,j];
           end;
        end;
    end;
    WriteLn;
    WriteLn('Min element = ',min:0:2);
    WriteLn;
    for i := 0 to RowCount-1 do
    begin
        for j := 0 to ColumnCount-1 do
        begin
           matrixA[i,j] := matrixA[i,j]/min;
        end;
    end;
 
    for i := 0 to RowCount-1 do
    begin
        for j := 0 to ColumnCount-1 do
        begin
           Write(matrixA[i,j]:0:2,' ');
        end;
        WriteLn;
    end;
    ReadLn;
end.