про файлы. Опции

[Beowulf 13th]

Объясните мне глупому. Почему не пишет:

Код

program testa;


uses CRT;

var test: text;

begin
        clrscr;
        assign(test,'test3.txt');
        rewrite(test);
        writeln(test,'asdfasdfsdf');

end.

создается файл, но он пустой.

[2ral]

А не лучше ли использовать output?

assign(output,'text.in');
 rewrite(output);
 writeln(st);
close(output);

Сообщение отредактировано: 2ral - 10.11.2007 23:18