Запись в файл Опции

[suriv]

Код

uses crt,dos;
var
t:text;
s:string;
begin
clrscr;
assign(t,'c:\lab.txt');
append(t);
write(t,s);
close(t);
readln;
end.

Почему не работает?
В чем моя ошибка.

[xds]

Проверь наличие у файла аттрибута "read-only" (при установленном r/o Append не работает). Если C:\ - том NTFS, то проверь права доступа к файлу. Код в обоих случаях рабочий - ошибка не в нем... если не считать того, что s в первом примере не инициализирована. В данном случае это не критично, т. к. BP 7.0 и FP очищают сегмент (секцию) данных. Впрочем, на этот факт не следует всерьёз полагаться - очистка производится, но не гарантируется.