Error 105: File not open for output Pascal помогите плиз

Вот программка:
Program uslovie;
uses Crt;
Var i:Integer;
f:text;
Begin
CLRSCR;
assign(f,'c:\xmelez');
Rewrite(f);
Write(f,'Chisla kratnie 11 v intrvale ot 1 do 1000:');
for i:=1 to 1000 do begin
if i mod 11=0 then begin
Writeln(f,i);
Close(f);
End;
End;
Readln;
End.

Мне необходимо сделать так, чтобы результат выводился в текстовый документ, а там где выделено красным пишет "Error 105: File not open for output", что делать, помогите плиз....
Без вывода в текстовый файл, всё работает!