Free Pascal 文件输入输出 怎样创建输入文件

关联命令 assign(文件变量,实际文件名);
如：assign(f1,'c:\files\file1.in');
rewrite(f1);
创建并打开该文件准备写，若已有同名文件则删除再创建
append(f1)
打开已存在的文件并追加(即文件中的原有信息不丢失）。
write(f1,写入的内容）;
将写入内容写入文件变量所关联的实际文件中。
close(f1)；
关闭文件
reset(f1)
打开该文件准备开始读取操作
read(f1,<变量名表>);
从变量f所指向的实际文件中读取内容
eoln(f1);
判断行是否结束
eof(f1);
判断整个文件是否结束。

还可以用input，output这两个变量
input是free pascal 默认的输入设备
output是默认的输出设备
如
assign(input,'count.in');
reset(input);
以后程序中所有的读语句都是从count.in文件中读取内容
assign(ouput,'count.out');
rewrite(output);
以后程序中所有的输出语句都是向count.out写入内容
close(input);
close(output);