Truncate katkaisee tiedoston sen hetkisestä kohdasta. Tiedosto ei saa olla tekstitiedosto.
procedure Truncate(var F: File);