Найти сумму двузначных нечетных чисел. Вывести сумму. А также выводить на экран сколько вводилось двузначных чисел и сколько из них было нечетных. То есть всего должно быть 3 вывода. Помогите пожалуйста!

Program one;
uses crt;
var a,i,b:integer;
begin
clrscr;
if (a100) and (b100)  then begin
i:=i+1;
if (a mod 20)  and (b mod 20)   then begin
i:=i+1;
sum:=a+b;
writeln(suma=,suma);
writeln(Количество =, i);
end;
end;
end.