Заполнить двухмерный массив. Подсчитать количество нечетных чисел — Pascal(Паскаль)

var
  a: array [1 .. 20, 1 .. 20] of integer;
  i, j, b, n, m: integer;

begin
  b := 0;
  randomize;
  write('kolichestvo strok n=');
  readln(n);
  write('kolichestvo stolbcov m=');
  readln(m);
  write('nachalniy massiv:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(10);
      write(a[i, j]:4);
      for i := 1 to 5 do
      begin
        if a[i, j] mod 2 <> 0 then
          b := b + 1;
      end;
    end;
    writeln;
  end;
  write('kolichestvo nechet:', b);
  readln;

end.