Необходимо переработать процедуру чтения из файла в функцию