С клавиатуры вводится 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.