Составить схему алгоритма и программу определения количества нечетных элементов массива

var
a:array[1..100, 1..100] of integer;
n,m, i,j, s,sMax,iMax: integer;
 
begin
write('Введите количество столбцов: ' );
readln(m);
write('Введите количество строк: ');
readln(n);
for i:=1 to n do
for j:=1 to m do begin
write ('a [ ', i, '' , j, ' ] = ');
read (a[i, j]);
end;
writeln ('Исходная матрица');
for i:=1 to n do begin
for j:=1 to m do write (a[i,j]:4);
writeln;
end;
sMax:= -1;
for i:=1 to n do begin
s:=0;
for j:=1 to m do
if a[i,j]<0 then s:= s+a[i,j];
if s=0 then
writeln('в ',i,'-й строке отриц элементов нет')
else
Writeln('сумма отриц элементов ', i,'-й строки равна ', s);
if s<sMax then begin
sMax:= s;
iMax:= i
end
end;
if sMax=0 then
writeln('В матрице нет отрицательных элементов')
else
writeln('Макс. суммы пол. эл. достигается в строке ',iMax,' и равен ', sMax );
end.