Код
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