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

На паскале-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.