BEGIN
   Assign (F, 'C:\TEST');
   Rewrite(F);
   Write(F, 'Hello World');
   Close(F);
END;

Glenn Grotzinger
mailto:ggr...@2sprint.net
MOD and S3M user extraordinaire.
Writer of TP tutorial.  All released parts findable at:
ftp://garbo.uwasa.fi/pc/turbopas/tptutr0e.zip

          Here is a quick example:

          PROGRAM TEXT_WRITE (OUTPUT,INPUT);

          USES
            Crt,Dos;

          VAR
            UserStr: String;
            F: Text;

          BEGIN {MAIN}
            ClrScr;
            Write('Enter in text to write to file:  ');
            ReadLn(UserStr);
            Assign(F, 'DELME.FIL');
            {$I-}
            Reset(F);
            {$I+}
            If IOResult <> 0 then ReWrite(F)
                             else Append(F);
            Write(F,UserStr);
          END.  {MAIN}

          That will write any user string to a file and check for if
          you are writing over a already existing file.  You might
          need to reserve memory later in your program if you are
          writing large arrays or large records to a file.  Hope this
          helps...

          ------------------------------------------------------------
          -  Roger Eckrode                  "Think Deep,             -
          -  Spangdahlem Germany             Listen Sharp,           -
          -                                  Guard Your Tongue"      -
          ------------------------------------------------------------

var T : Text;

begin
        Assign(T,'TEST.TXT');
        Rewrite(T);
        Writeln(T,'This is a string to write to the text file');
        Close(T);
end.

Var Filename : Text;
        filevar       : string;

begin
assign(filename,'myfile.txt');
rewrite(filename);
Writeln(filename,'my text goes in here');
close(filename);
end.