Нужна помощь в отредактировании программы Паскаль. Нужно, чтобы выводилось…

Нужна помощь в отредактировании программы Паскаль. Нужно, чтобы выводилось максимальное среди двузначных элементов массива. Максимальное программа выводит, но где и как прописать, что элементы массива только двузначные? program maxdvuz; var i,n,i1: integer; a: array[1… 1000] of integer; amax: real; beginassign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln (n); for i: =1 to n do read (a[i]); amax: =a[1]; for i: =1 to n dobeginif a[i]>amax thenbeginamax: =a[i]; i1: =i; end; end; writeln (amax: 0:0); close (input); close (output); end.