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

program z;var a: array [1..10] of integer;N,i,k: integer;beginN := 10;k=0; for i:=1 to N do readln(a[i]); for i:=1 to N do if a[i]>9 and a[i]<100then k:=k+1;writeln(k);end.