Сумма четных элементов строк

[Леся0909]

Помогите пожалуйста дописать программу ,чтобы она считала сумму четных элементов строк ,которые содержать хотя бы один нулевой элемент.Никак не могу придумать как это сделать .вот моя исходная программа.( при этом оставить перестановку столбцов и ввод с клавиатуры элементов матрицы ).

Program zadacha1; {caaaiea 1 aa?eaio 30}
USES
CRT;
CONST
a=4;
b=4;
VAR
C:array[1..a,1..b] of integer;
m,n,n1,n2:integer;
t:integer;
BEGIN
Writeln('Введите элементы матрцы C:');
for m:=1 to a do
for n:=1 to b do
Readln(C[m,n]);
ClrScr;
Writeln('матрица C:');
for m:=1 to a do
begin
for n:=1 to b do
Write(C[m,n]:8);
Writeln;
end;
repeat
writeln('введите номера столбцов для обмена ');
readln(n1,n2);
until(n1 in [1..b])and(n2 in [1..b])and(n1<>n2);
for m:=1 to a do
begin
t:=c[m,n1];
c[m,n1]:=c[m,n2];
c[m,n2]:=t;
end;
writeln('Преобразованный массив:');
for m:=1 to a do
begin
for n:=1 to b do
write(c[m,n]:4);
writeln;
end;
readln;
end.

[Stilet]

Program zadacha1; {caaaiea 1 aa?eaio 30}
USES
CRT;
CONST
a=4;
b=4;
VAR
C:array[1..a,1..b] of integer;
tml:array[1..a] of integer; bb:boolean;
m,n,n1,n2:integer;
t:integer;
BEGIN
Writeln('Введите элементы матрцы C:');
for m:=1 to a do begin
 bb:=false; 
 for n:=1 to b do begin
  Readln(C[m,n]);
  {Получаем суммы}
  if odd(C[m,n]) then begin
   tml[m]:=tml[m]+C[m,n]; 
   if C[m,n]=0 then b:=true;
  end;
 end;
 if not b then tml[m]:=0;
end;


ClrScr;
{Выводим суммы, если они не нулевые}
for m:=1 to a do if tml[m]<>0 then Write(tml[m]:8);

Writeln('матрица C:');
for m:=1 to a do
begin
for n:=1 to b do
Write(C[m,n]:8);
Writeln;
end;
repeat
writeln('введите номера столбцов для обмена ');
readln(n1,n2);
until(n1 in [1..b])and(n2 in [1..b])and(n1<>n2);
for m:=1 to a do
begin
t:=c[m,n1];
c[m,n1]:=c[m,n2];
c[m,n2]:=t;
end;
writeln('Преобразованный массив:');
for m:=1 to a do
begin
for n:=1 to b do
write(c[m,n]:4);
writeln;
end;
readln;
end.

Это в качестве идеи. Не проверял.