Склавиатуры вводится n чисел.найти сумму и количество трехзначных и нечетных чисел. pascal

Var a,b,n,kol:integer;begin
writeln('введите количество чисел');
readln(n);
kol:=0;
 for a:=1 to n do begin
  writeln('введите число');
  readln(b);
  if (b mod 2 <> 0) and ((b>99) and (b<1000)) then kol:=b+kol;
  end;
writeln('количество нечётных трёхзначных чисел => ',kol);
end.