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

[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]

В BP 7.0 код инициализации заполняет сегмент данных нулями всегда:

Код

mov    di,0052
push   ds
pop    es
mov    cx,82A0
sub    cx,di
shr    cx,1
xor    ax,ax
cld
rep stosw
ret

Можешь проверить (скомпилируй и запусти без IDE):

program Code;

{$D-}

var
  a: array[0..32767] of Byte;
  i: Integer;

begin
  for i := 0 to 32767 do
    if a[ i ] <> 0 then
      begin
        Writeln('a: uninitialized.');
        Exit;
      end;
  Writeln('a: filled with zeros.');
end.