[NIch]

Код:

var
 ArrayName : array of word;//массив цифр
 a : word;//искомая цифра
begin
if Length(ArrayName) <> 0 then//если массива не пуст
 for i := 0 to Length(ArrayName)-1 do//от первого элемента до последнего
  if ArrayName[i] = a then//если какой то элемент равен искомому, то
   ...//что то сделать
end;