Дан массив содержащий натуральные элементы. Посчитать кол-во двузначных элементов массива.

varo,lich,s:integer;g: array [1..17865] of integer; {описание массива натуральных чисел}beginlich:=0; {обнуляем значение переменной-счетчика}readln(o); {считывание количества элементов нашего массива}for s:=1 to o do begin read (g[s]); if (g[s] > 9) and (g[s]<100) then lich:=lich+1; {проверка условия двузначности числа} end;writeln(lich); {вывод значения счетчика}end.