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

program raf105;

var i,n,a,counter: integer;

begin

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

readln(n);

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

for i:=1 to n do

begin

 readln(a);

 if (agt;=10) and (alt;=99)

   then counter:= counter + 1;

end;

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

end.

Язык PascalABC