Дан массив B(n*m).Элементы массива ввести в программе.Найти сумму четных элементов массива. Паскаль

program bi;type tab=array[1..100,1..100] of integer;var n,m,i,j,s:integer;t:tab;beginreadln(n);readln(m);for i:=1 to n dofor j:=1 to m doreadln(t[i][j]);for i:=1 to n dofor j:=1 to m doif(t[i][j] mod 2=0) then S:=S+t[i][j];writeln('Mассив:');for i:=1 to n do beginwriteln;for j:=1 to m dowrite(t[i][j],' '); end;writeln('сумма чётныч чисел ',S);end.