Помогите, пожалуйста с программой

Написал модель для программы, написал код программы (Вся компиляция +). При запуске основной программы открывает файл модуля ( в новом окне паскаля) и выводит ошибку 105: Файл не открыт для вывода.
и переносит курсор в эту часть кода
....
procedure write_vector;
var i:size; l:byte;
begin
if q>4 then q:=4;
l:=q+8;
{курсор здесь} for i:=1 to n do write(f,x[i]:1:q, '');
writeln(f)
end;
....