дан целочисленный массив из 30 частей элементы массива могут принимать значения

при этом желая бы одна их этих цифр 9ых - имеется ввиду, одна из цифр - 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 
  //проверяем, если элемент gt; 9 и lt; 100, то он двузначный 
  //если остаток от разделенья на 10 = 9 
  //либо итог дробления на 10 = 9 
  //то в числе содержится цифра 9    
  if (a[i] gt; 9) and (a[i] lt;100) and ((a[i] mod 10 = 9) or (a[i] div 10 = 9)) then
    inc(k); //увеличиваем k с инкрементом 1 
  writeln(k);
end.