Пусть с клавиатуры вводятся последовательно n целых чисел. найти количество двухзначных чисел

На Паскале: 

Program Count;
Uses crt;
Var a,n: integer;
Begin
n:=0;
While not EOF do begin /Бесконечный цикл, выход по нажатию клавиши ESC/
Writeln('Введите число> ');
readln (a);
If a>9 and a<100 then inc(n);
if a=#27 then Begin
Write (/Количество двузначных чисел/ ,n);
Break;
End;
End

На С++ :
#using "iostream"
#using namespace std;
void main()
{ int a,n: integer;
n:=0;
{ for<<(/Введите число/);
If a>9 & a<100;
if a=+27; }
return 0;
system ("pause"); }