[angvelem]

Совсем правильно, будет так:

Код:

var
 F: TextFile;
 n: Integer;
begin
{$I-}
 AssignFile(F, 'MyTxt.txt');
 try
  if not FileExists('MyTxt.txt')
    Rewrite(F)
  else
    Reset(F);
  for n := 1 To 100 do 
    WriteLn(F, '№ ' + IntToStr(n));
 finally
   CloseFile(F);
 end;
{$I+}
end;