Посчитать наименьшее из положительных целых чисел в текстовом файле.

Если положительных чисел нет, то вернуть -1.

функция принимает в качестве параметра имя файла Name

FUNCTION F(NAME:STRING):INTEGER;