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

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