Произведение минимального элемента матрицы на сумму ее положительных элементов

Задача: 

Найти произведение минимального элемента матрицы вещественных чисел на сумму ее положительных элементов.

Описание переменных: 

a - матрица размерностью N на M;
min - ее минимальный элемент;
sum - сумма ее положительных элементов;
i, j - счетчики.

Алгоритм решения задачи: 
  1. Присвоить переменной min максимально возможное значение или больше максимально возможного. В коде ниже присвоено число 5.0, т.к. случайные числа для заполнения матрицы будут в диапазоне [-5.0; 5.0).
  2. Присвоить sum ноль.
  3. Заполняя матрицу случайными вещественными числами, выводить каждое из них на экран, если оно положительное, то добавлять к переменной sum, если оно меньше min, то заменять на него старое значение min.
  4. Вывести на экран произведение sum на min.
Программа на языке Паскаль: 

const N = 5; M = 10; MAX = 10.0;
var 
    a: array[1..N,1..M] of real;
    min, sum: real;
    i, j: byte;
begin
    randomize;
    min := MAX/2;
    sum := 0;
    for i:=1 to N do begin
        for j:=1 to M do begin
            a[i,j] := (random() * MAX) - MAX/2;
            write(a[i,j]:6:2);
            if a[i,j] > 0 then
                sum := sum + a[i,j];
            if a[i,j] < min then
                min := a[i,j];
        end;
        writeln;
    end;
    writeln(min:10:2,' - минимальный элемент');
    writeln(sum:10:2,' - сумма положительных элементов');
    writeln(min*sum:10:2,' - произведение минимального на сумму');
end.

Пример выполнения:

 -2.12 -0.63  4.86 -2.48 -4.94  3.45  3.27  3.34  4.63  0.59
 -0.91  2.24 -2.28  2.93  4.53 -3.89 -1.99  3.65  0.13  0.37
  1.60 -2.71  2.05  0.78  0.14 -2.36 -2.89  1.86  1.14  2.12
 -3.10  1.26 -1.55  3.26  4.66  0.08 -1.60 -1.61  3.09 -2.32
  0.01 -2.88 -3.09 -3.21 -1.05  2.54  4.79  1.21 -2.88 -1.99
     -4.94 - минимальный элемент
     64.59 - сумма положительных элементов
   -318.79 - произведение минимального на сумму