Если число нечетных элементов в каждой строке матрицы не больше 2, то найти сумму четных элементов матрицы больших 5

Var A:array[1..20,1..20] of integer;
    i,j,n,m,k,s,max,min:integer;
    f,g:text;
    b:boolean;
Begin
    Assign(f,'in.txt');Reset(f);
    readln(f,n,m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
       read(f,A[i,j]);
      readln(f);
    End;
    b:=true;i:=1;
    While (i<=n) and (b) do
    Begin
      k:=0;
      For j:=1 to m do
       if odd(A[i,j]) then inc(k);
      if k>2 then b:=false;
      inc(i);
    End;
    Assign(g,'out.txt');Rewrite(g);
    if b then
    Begin
      For i:=1 to n do
       For j:=1 to m do
        if (A[i,j]>5)and(A[i,j] mod 2 = 0) then s:=s+A[i,j];
      writeln(g,'Сумма чётных элементов >5 = ',s);
    End
    else
    Begin
      max:=A[1,1];min:=max;
      For i:=1 to n do
       For j:=1 to m do 
        if A[i,j]>max then max:=A[i,j]
         else if A[i,j]<min then min:=A[i,j];
      writeln(g,'Max = ',max);
      writeln(g,'Min = ',min);
    End;
    writeln('Результат в файле "out.txt"');
    Close(f);Close(g);
    readln;
End.