[pascal]

собственно мессага: ввод массива чисел(размер не менее 15), ввод числа и поиск его в массиве, если значений несколько-опр. их количество и порядковые номера, если значений нет-поиск ближайшего большего

заранее спасибо( + за мной не заржавеет )