Заменить функцию на процедуру в Free Pascal.

В Free Pascal заменить функцию на процедуру у выполненной задачи.
Сама задача в прикреплённом файле.
Условие: Дан целочисленный вектор, состоящий из n компонент, и целое t. Найти k, равное номеру компоненты вектора a, имеющей значение t(т.е найти k такое, что ak=t. Если такого элемента в массиве нет, то положить k равным нулю.