В двумерном массиве найти количество четных чисел и среднее арифметическое всех элементов масива

Var a:array[1 ... 100, 1 ... 100] of integer;

sum, k, i, n1, n2, j:integer;

begin

sum:=0;

k:=0;

writeln ('Введите количество строк') ;

readln (n1) ;

writeln ('Введите количество столбцов') ;

readln (n2) ;

writeln ('Введите элементы массива') ;

for i:=1 to n1 do

for j:=1 to n2 do begin read (a[i, j]) ;

sum:=sum+a[i, j];

k:=k+1;

end;

writeln ('Среднее арифметическое всех элементов массива = ', sum/k) ;

end.