Дано N чисел определить кол-во двузначных чисел (Без массива)

Сможешь ещё блок-схему нарисовать?

var i,n,a,k:integer;begink:=0;readln(n);for i:=1 to n do beginreadln(a);if (a>=10) and (a<=99) then k:=k+1;end;writeln(k);end.