[GriLab]

AND_REY, если ты непротив, то я немного дополню твой код:

Код:

var
 F: TextFile;
 n: Integer;
begin
 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;
end;