помогите решить в паскале авс.6. Дан двумерный массив размерности nxm. Посчитать количество нечетных элементов матрицы. Полученный результат вывести на экран.

function oddcount(ar:array[1..n;1..m] of integer):integer;var i,j:integer;begin   result:=0;   for i:=1 to n do     for j:=1 to m do       begin          if odd(ar[i,j]) then            result:=result+1;       end;   writeln(result);end;Вот так как-то.