Программы pascal, матрицы

Из тех строк данной целочисленной матрицы, которые  содержат только нечётные элементы, найти строку с максимальной суммой модулей элементов ответ вывести на печать 



uses CRT;
const N=5;
A:array[1..N, 1..N]of integer=(
(1, 1, 1, 1, 1),
(1, 2, 3, 4, 5),
(1, 2, 3, 4, 5),
(2, 2, 2, 2, 2),
(1, 3, 3, 7, 5));
var i,j,str,sum,max: integer;
    b: boolean;
BEGIN
    ClrScr;
    max:= -1;{ ­Ґв ¬ ЄбЁ¬ «м­ле  }
    str:= -1;{ бва®Є  ­ҐЁ§ўҐбв­  }
    for i:= 1 to N do begin { жЁЄ« Ї® бва®Є ¬ ᢥаег ў­Ё§ }
        sum:= 0;
        b:= false;{ ­Ґв ­Ґзсв­ле н«Ґ¬Ґ­в®ў }
        for j:= 1 to N do begin { жЁЄ« Ї® бва®ЄҐ }
            sum:= sum + abs(A[i,j]);
            if not odd(A[i,j]) then
                b:= true;{ Ґбвм ­Ґзсв­л© н«Ґ¬Ґ­в }
        end;
        if (not b) and (sum>max) then begin
            max:= sum;{ § Ї®¬­Ё«Ё б㬬г }
            str:= i;  { Ё бва®зЄг       }
        end;
    end;
    WriteLn('‘ва®Є  [',str,'] б ¬ ЄбЁ¬ «м­®© б㬬®© ¬®¤г«Ґ© н«Ґ¬Ґ­в®ў');
    WriteLn('< OK >');ReadKey;
END.