Лог процесов

int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
function log(string word);
{
getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
fopen ("c:\log.txt", "a");
fwrite(word); fwrite(" --------ВРЕМЯ: "+format(Hour)+"-ч,-"+format(Minute)+"-м,-"+format(Second)+"-с");
fwrite(ENDL);

fclose();
}

log("Лог записан");