Нетипизированные файлы, не пишет/читает Опции

[Master Yoda]

Есть проблема

Я хочу записать в нетипизированный файл, например, сначала один integer, потом много чаров (а потом считать). Что делаю неправильно?

var
fin, fout:file;
...
Begin
...
assign(fout, fname);
rewrite(fout, 1);
...
blockwrite(fout, some_integer, sizeof(some_integer));
for i:=1 to n do blockwrite(fout, some_char[i], sizeof(some_char[i]);
close(fout);
...
assign(fin, fname);
reset(fin, 1);
blockread(fin, some_integer, sizeof(some_integer));
for i:=1 to n do blockread(fin, some_char[i], sizeof(some_char[i]);
close(fin);

End.

При записи почти весь файл забивается nul'ами, и, соответственно, ничего ни читается. Зарание спасибо.