Нужно решение к проге на завтра. Помогите

[kalinin_life]

завтра надо отчет сдать по задаче.
помогите, это последняя надежда закрыть модуль.
она простая на самом деле, просто я тему не понял и не могу всё в кучу собрать
задача:
Сформировать пустой файл. Записать на 7ю позицию любой символ.
Помогите пожалуйста!

[dr.Jekill]

[syntax='pascal']
var f: file of char;
FileName: String;
ch: char;
begin
write('File: ');
readln(FileName);
Assign(f,FileName);
Rewrite(f);
Seek(f,6);
write('Simvol: ');
readln(ch);
write(f,ch);
Close(f);
end.
[/syntax]