[Bars1992]

Просто на всякого рода оптимизации время небыло. Способ единичного вычисления мне понравился возьму на вооружение

И кстати забыл
CloseFile(f);