Помогите решить задачу по Turbo Pascal срочно

[exotic]

Найти количество элементов массива целых чисел, больших квадрата первого элемента этого массива. Если таких чисел нет, то выдать сообщение "поиск неудачен"