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

type
    TMass = Array[0..255, 0..255] Of Double;
 
function InitMass(var m : TMass) : Byte;
var
    i, j, Result : Byte;
begin
    Randomize;
    repeat
        Write('n=');
        ReadLn(Result);
    until (Result <= 10);
    for i := 0 to Result-1 do
    begin
        for j := 0 to Result-1 do
        begin
            m[i, j] := 20 * Random() - 10;
            Write(m[i, j]:6:2);
        end;
        WriteLn;
    end;
    InitMass := Result;
end;
 
function Summ(x, y : Double) : Double;
begin
    Summ := x + y;
end;
 
procedure Mult(var x : Double; y : Double);
begin
    x := x * y;
end;
 
var
    mass : TMass;
    n, i, j : Byte;
    sum : Double = 0;
    mul : Double = 1;
 
begin
    n := InitMass(mass);
    for i := 0 to n-1 do
        for j := 0 to n-1 do
            if (mass[i, j] > 0) then
                sum := Summ(sum, mass[i, j])
            else
                if (mass[i, j] < 0) then
                    Mult(mul, mass[i, j]);
    WriteLn('summ=', sum:0:4);
    WriteLn('mult=', mul:0:4);
end.