Удаление информации с ЖД, форматирование, и прочие методы Опции

[Altair]

Вчера написал программу:

Код

uses dos;
var
name:string;
F:file;
L,i:longint;
buf:byte;
begin
buf:=44;
Writeln('name= ');
readln(name);
ASSIGN(f,name);
rewrite(f,1);
seek(f,1);
l:=filesize(f);
I:=0;
WHILE    I<L-1 DO
begin
 Seek(f,i);
 Blockwrite(F,buf,1);
 I:=I+8
end;
CLOSE(F);
WRITELN('END');
end.

Почему после ее выполнения файл уничтожайться?
Даже текстовый!
его размер становиться 0