Question

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

FUNCTION F(NAME:STRING):INTEGER;