Manipulating Text Files
var MyFile: text {declared File}
for output first open, then writerewrite(MyFile); {Open Output File}write(MyFile, ‘This will write 29 characters’);writeln(MyFile, x:7:2);
for input first open, then readreset(MyFile); {Rewind and Open File for Input}