var f: TextFile; begin AssignFile(f, 'pepe.prn'); Rewrite(f); Writeln(f, 'Linea1'); Writeln(f, 'Linea2'); Writeln(f, 'Linea3'); Flush(f); CloseFile(f); end;