[Cheb]

После окончания выгрузки нужно закрыть файл, открыть снова и "обрезать" на один символ:

...
f.CLOSE;

f.OPEN('1.txt');
f.SEEK(f.LEN-1);
f.TRUNC;
f.CLOSE;