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

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.

 sum := 0;
    for i:=1 to N do
     begin
      for j:=1 to M do
       begin
         a[i,j] :=-max/2+random*max;//-10/2=-5, random*10=от 0 до 10, итого       
                                    //от -5 до +5
         write(a[i,j]:6:2);
         if(i=1)and(j=1) then min:=a[i,j]
         else if a[i,j] < min then min := a[i,j];
         if a[i,j] > 0 then sum := sum + a[i,j];
       end;
     writeln;
    end;