Среди всех натуральных двузначных чисел найти и вывести на экран только нечетные и вычислить их количество — Pascal(Паскаль)

VAR
 count, i: Integer;
BEGIN
 count:=0;
 for i:= 10 to 99 do
   if Odd(i) then begin
     Write(i:5); inc(count)
   end;
 WriteLn;
 WriteLn('Число нечетных двузначных: ',count)
END.