Определить произведение элементов матрицы

type
    TLine = Array[1..100] Of ShortInt;
    TM = Array[1..100] Of TLine;
    TMass = record
        mass : TM;
        n, m : Byte;
    end;
var
    arr : TMass;
 
procedure InitMass(var ar : TMass);
var
    i, j : Byte;
begin
    with ar do
    begin
        Randomize;
        repeat
            Write('n=');
            ReadLn(n);
        until (n <= 100);
        repeat
            Write('m=');
            ReadLn(m);
        until (m <= 100);
        for i := 1 to n do
        begin
            for j := 1 to m do
            begin
                mass[i, j] := Random(51) - 25;
                Write(mass[i, j]:4);
            end;
            WriteLn;
        end;
    end;
end;
 
function CheckLine(const l : TLine; const m : Byte) : Boolean;
var
    Result : Boolean;
    j : Byte;
begin
    Result := True; j := 1;
    while (Result And (j <= m)) do
    begin
        Result := (l[j] >= 0);
        Inc(j);
    end;
    CheckLine := Result;
end;
 
function MultipLine(const l : TLine; const m : Byte) : LongInt;
var
    Result : LongInt;
    j : Byte;
begin
    Result := 1;
    for j := 1 to m do
        Result := Result * l[j];
    MultipLine := Result;
end;
 
function MultipFull(const ar : TMass) : LongInt; //произведение элементов подходящих строк.
var
    Result : LongInt;
    i : Byte;
begin
    Result := 1;
    with ar do
        for i := 1 to n do
            if (CheckLine(mass[i], m))
            then
                Result := Result * MultipLine(mass[i], m);
    MultipFull := Result;
end;
 
{procedure MultipFull(const ar : TMass); //если нужно произведение элементов каждой подходящей строки ОТДЕЛЬНО
var
    i : Byte;
begin
    WriteLn;
    with ar do
        for i := 1 to n do
            if (CheckLine(mass[i], m))
            then
                WriteLn(i, ': ', MultipLine(mass[i], m));
end;}
 
begin
    InitMass(arr);
    WriteLn('multFull=', MultipFull(arr));
    //MultipFull(arr);
end.