[Savant]

в процедуре write(ln) для дробных чисел можно использовать управляющий символ ":", чтобы задать выводимое на экран число знаков после запятой. Синтаксис такой: "переменная:<отступ>:<число_знаков>". Отступ задает кол-во позиций, резервируемых перед точкой в числе. В данном случае можно использовать writeln(outfile, systime:0:3); , чтобы сохранить три знака после запятой и получить вывод в виде 4,660