Код
program testa;
uses CRT;
var test: text;
begin
clrscr;
assign(test,'test3.txt');
rewrite(test);
writeln(test,'asdfasdfsdf');
end.
uses CRT;
var test: text;
begin
clrscr;
assign(test,'test3.txt');
rewrite(test);
writeln(test,'asdfasdfsdf');
end.
создается файл, но он пустой.