Найти количество не отрицательных нечетных элементов двумерного массива.

На паскале
---
uses crt;
const n=3;
         m=3;
var a: array [1..n,1..m] of integer;
    x,y,k: integer;
begin
     k:=0;
     for x:=1 to n do begin
         for y:=1 to m do begin
             a[x,y]:=random(21)-10;
             if a[x,y] mod 2=1 then inc(k);
             write(a[x,y]:4);
         end;
         writeln;
     end; 
     writeln('Количество неотрицательных нечетных элементов: ',k);
end.