Title: print text?var F: TextFile;begin AssignFile(F, 'LPT1');// LPT2,COM1,COM2... Rewrite(F); Writeln(F, 'Hello'); Writeln(F, 'There!'); Writeln(F, #12); CloseFile(F);end;