File1:Text;...AssignFile(File1,'file.txt');rewrite(File1);writeln(File1,'A string to write...');CloseFile(File1);...Var S:String;...AssignFile(File1,'file.txt');reset(File1);readln(File1,S);CloseFile(File1);
echo This is the line > myfile.txt
cat myfile.txt
Damn.... Google and Wiki down again at the same time world wide?