Среди строк заданной целочисленной матрицы, содержащих только нечётные элементы, найдите строку с максимальной суммой модулей элементов — 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.