Среднее арифметическое положительных элементов матрицы

Program v21;
const MAX = 12;
type
    TRange = 1..MAX;
    TArray = Array[TRange, TRange] Of ShortInt;
function FAVR(const S: TArray; const n, m: TRange): Real;
var  i, j: TRange;
begin
    Result := 0;
    for i := 1 to n do
        for j := 1 to m do
            if (S[i, j] > 0)
            then
                Result := Result + S[i, j];
    Result := Result / n / m;
end;
procedure PAVR(const S: TArray; const n, m: TRange; var Result: Real);
var
    i, j: TRange;
begin
    Result := 0;
    for i := 1 to n do
        for j := 1 to m do
            Result := Result + S[i, j];
    Result := Result / n / m;
end;
var
    S: TArray;
    i, j, n, m: TRange;
    res: Real;
begin
    Write('Introduceti lungimea tabloului:'); ReadLn(n);
    Write('Introduceti latimea tabloului:'); ReadLn(m);
    Randomize;
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            S[i, j] := Random(199) - 99;
            Write(S[i, j]:4);
        end;
        WriteLn;
    end;
    WriteLn('Media elementelor pozitive din tablou este ', FAVR(S, n, m):0:2);
end.

function FAVR(const S: TArray; const n, m: TRange): Real;
var  i, j: TRange;
k:integer;
begin
    Result := 0;
    for i := 1 to n do
        for j := 1 to m do
            if (S[i, j] > 0)
            then
               begin
                inc(k);
                Result := Result + S[i, j];
               end;
    Result := Result /k;
end;