F_grtext, Не могу открыть файл( Опции

[N/V/K]

 uses graph,F_grtext;
var
d,r:integer;
f:text;
begin
d:=detect;
initgraph(d,r,' ');
assign(f,'1.txt');
reset(f);
graphwriteon;
writeln(f);
close(f);
readln;
end.

Не понимаю почему не работает все перепробовал раз получилось а потом

Сообщение отредактировано: N/V/K - 18.11.2006 9:27

[Malice]

Это ты таким хитрым способом решил вывести содержимое файла на экран ? Если да, то Writeln (f) не поможет, нужно читать построчно файл, а потом печатать.