Матрица, Найти минимальный по модулю элемент матрицы и умножить на его значение Опции

[minoru]

Пожалуйста помогите с задачей для курсовой работы :
Дана прямоугольная матрица Ci,j размером . Найти минимальный по модулю элемент матрицы и умножить на его значение все элементы матрицы. Вывести полученную матрицу на печать.

[minoru]

{
        #5.pas
        
        Copyright 2008 Roman <minoru@minoru-desktop>
        
        Дана прямоугольная матрица Ci,j размером . Найти минимальный по модулю элемент матрицы и умножить на его значение все элементы матрицы.
        Вывести полученную матрицу на печать.
}


program Work_5;

uses crt;
var   i,j,m,n:integer;
      a  : array[1..10,1..10] of real;
      c  : real;

BEGIN	
clrscr;
    write ('n='); Readln(n);
    write ('m='); readln (m);
    begin
       for i := 1 to n do
          begin
             for j := 1 to m do
               begin
                   write('a[',i,',',j,']='); readln(a[i,j]);
               end;
              writeln;
          end;
         
     end;
    readln;
END.

Вот а дальше "ступор", не могу понять как минимальный по модулю элемент.