pascal编程

你可以调用 system的单元
uses system;

初学者用不到。单元操作是Pascal高级编程技术。您学习到深层的时候自然会明白的。^_^

弄一些简单的出来吧

（1）assign过程
形式：assign(f,str);
功能：将文件名字符串str赋给文件变量f，程序对文件变量f的操作代替对文件str的操作。

（2）rewrite过程
形式：rewrite(f);
功能：建立并打开一个新的允许写磁盘文件，其文件名必须先由assign过程赋给变量f。这时，指向文件元素的指针指向第一个元素，rewrite过程所建立的文件为空文件。

（3）reset过程
形式：reset(f);
功能：打开一个已经存在的磁盘文件，其文件名必须先由assign过程赋给变量f,该文件只能读，指向文件元素的指针指向第一个元素。

（4）close过程
形式：close(f);
功能：关闭和f关联的磁盘文件，在写操作时自动产生一个文件结束标志。

（5）形式：append(f);
功能：打开一个已经存在的磁盘文件，其文件名必须和assign过程中的变量名f相对应，该文件只能写，此时文件指针指向文件尾。

程序好像不行，不过可以打开其他的文件
格式是这样的：
assign(input,'**.**'){**.**为文件的名字+后缀,并且，这个文件需要跟PAS的文件在同一目录下，如果不是同一目录下的话，则需输入文件所在的准确路径｝
reset(input);
....
....
....
close(input);

pascal不像C++、delphi和JAVA的功能那么强大，它只能打开一些用文本可以编辑的文件。
具体语句如下：
var
a:longint;
f:text;//定义文件指针
begin
assign(f,'文件名.后缀名');//把f指向引号内的文件
reset(f);//这个是向文件读入
readln(f,a);//每次读入前都要加上“f,”
……//你的程序内容
close(f)；//每次用完一个文件都必须把它关闭。
end.
如果是输出的话就是这样的：
rewrite(f);
writeln(f,a);
close(f);
这个是大同小异的。
当然，你也可以不用文件指针，因为PASCAL中本来就有两个指针input,output，这个也是竞赛中选手常用的指针，因为它比较方便。
var
a:longint;
begin
assign(input,'shuru.in');
reset(input);
readln(a);//注意，用了input后，就不用加上“input,”
close(input);
assign(output.'shuchu.out');
rewrite(output);
writeln(a);//注意，用了output后，就不用加上“output,”了。
close(output);
end.

最后补充一点：
文件名如果不是绝对路径的话（绝对路径就是如C:\FPC\...之类的），文件就必须与PAS文件处在同一个目录下。