Дан целочисленный массив из 30 элементов элементы массива могут принимать значения от 0 до 1000 найти колво элементов массива десятичная запись которых содержит ровно 2цифры причем хотя бы одна их этих цифр 9ых

var a: array[1..30] of integer; i, k: integer; begin    k:=0;    //считываем массив   for i:=1 to 30 do      readln(a[i]);    for i:=1 to 30 do    //проверяем, если элемент > 9 и < 100, то он двузначный    //если остаток от деления на 10 = 9    //или результат деления на 10 = 9    //то в числе содержится цифра 9       if (a[i] > 9) and (a[i] <100) and ((a[i] mod 10 = 9) or (a[i] div 10 = 9)) then     inc(k); //увеличиваем k с инкрементом 1    writeln(k); end.