[nibl]

VAR
  a:		 array[1..4,1..5] of Integer;
  i,j,Count: Integer;

BEGIN
  Randomize;
  for i := 1 to 4 do
	for j := 1 to 5 do
	  a[i,j] := Random(255)+1;
  Count := 0;
  for i := 1 to 4 do
	for j := 1 to 5 do
	  if (a[i,j] mod 2) <> 0 then
		begin
		  Inc(Count);
		  Write(a[i,j],'  ');
		end;
  WriteLn; 
  WriteLn('Найдено ',Count,' нечетных чисел.');
  ReadLn;
END.

Не делятся на 2, то есть нечетные => можно использовать функцию Odd().

if Odd(a[i]) then и т.д.