Написать программу в Pascal(среда ABC. net)

Даны три одномерных массива a, b и c разного размера. Для каждого из этих массивов сформировать массив, содержащий номера элементов исходного массива, квадрат которых больше заданного числа. Для формирования массива из номеров элементов, квадрат которых больше заданного числа, использовать процедуру. Для ввода и вывода массивов также использовать процедуры.