написать программу, которая находит количество двузначных чисел ,среди введенных пользователем положительных чисел. пользователь вводит количество чисел, затем сами числа.​

program raf105;

var i,n,a,counter: integer;

begin

write('Количество чисел: ');

readln(n);

writeln('Вводите числа:');

for i:=1 to n do

begin

 readln(a);

 if (a>=10) and (a<=99)

   then counter:= counter + 1;

end;

writeln('Количество двузначных чисел: ',counter);

end.