assign(a,'XXXX.xxx');
 a 必须在变量里变写出来
 a:text;
 text是文件类型；
 a就是代表了文件的链接


 我建议你用（input）
 它不用在变量中写出来,如：
  begin
   assign(input,'a.in');reset(input);
    read(n);
   close(input);
  而且在读或写东西时不用在n前边写任何东西

用input之后如果还需要再在屏幕上写什么东西请再写一遍“assign(input,'');reset(input)”

其实不一定var f:text;
text只是文本类型，包含char,integer,longint,real,boolean等我们熟知的类型。
而如果你只要读入某种类型的，
为了节约时间/内存，可以写成：
var f:file of 类型
比如：
var f:file of real;
还有一种忽视文件类型的，读取时速度较快的一种文件类型叫无类型文件，定义如下：
var f:file;
但是此时读取/输入文件要用到过程blockread/blockwrite了。

...........

其他那几种文件类型只在自己娱乐时使用，真正的比赛还是要用text的。

另外，在system单元中已经定义好OUTPUT和INPUT两个text了