8525. Четные отрицательные в матрице

var i,j,n,m,sum,counter:int64;
    A : array[0..1000,0..1000] of int64;
begin

    readln(n);

    sum := 0;
    counter := 0;

    for i:=1 to n do
    begin
        for j:=1 to n do
        begin
                read(A[i,j]);
                if (A[i,j] < 0) and (A[i,j] mod 2 = 0) then
                begin
                    sum := sum + A[i,j];
                    counter := counter + 1;
                end;
        end;
        readln()
    end;

    writeln(counter,' ',sum);

end.