我开使用文件读入,关闭读入文件后就无法再用屏幕读入了
请各位帮忙一下

PASCAL默认的读入文件INPUT，一般是指屏幕输入。
PASCAL默认的输出文件OUTPUT，一般是指屏幕输出。
如果你的程序中，既有屏幕输入，又有键盘输入，一般不要直接用INPUT和OUTPUT来指你输入输出文件。
可以再定义一个文件类型的变量就行了。

文件变量名是Text

   assign(output,'c:\11.txt');
   rewrite(output);
   writeln(st);
   close(output);
//在11.TXT写入一行.
   assign(output,'CON');
   rewrite(output);
   writeln(st+st);
   close(output);
//从CON设备输出一行
   assign(input,'c:\11.txt');
   reset(input);
   readln(st);
   close(input);
//从11.TXT输入一行
   assign(input,'CON');
   reset(input);
   readln(st);
   close(input);
   writeln(st+st+st);
//从CON设备输入一行。并输出3个连串
在纯DOS下，INPUT和OUTPUT默认指向的都是'CON'设备文件，当你改动了INPUT/OUTPUT的文件指向，必须重定向为'CON'，此时键盘输入和屏幕输出才能正常使用。


在文件输入的一半直接调用close函数关闭文件输入，然后继续输入

问题就是出在有些人身上.
他们喜欢修改input文件的指向.
所以下面要键盘输入就有问题了.
如果你不去动input文件, 就没这个问题

我也是这么认为的，只要自己定义一个文本类型变量就可以了。

不建议用 input/output 做文本文件（text）输入、输出。
看到一本 PASCAL 的电子书上有这么用的，不太合理。如果要求你的程序同时把运算结果显示在屏幕上并保存到文件里，用output 就不容易了。
在 DOS 下，文件可看做设备，标准的输入设备就是键盘(input), 标准的输出设备就是屏幕（output），要读写磁盘文件，最好另开磁盘文件变量， 如：
var TextIn, TextOut: text;
s: string;
...
assign(TextIn, 'TextIn.txt');
reset(TextIn);
assign(TextOut, 'TextOut.txt');
erwrite(Textout);
...
readln(TextIn, s);
...
writeln(TextOut, s);
...
close(TextIn);
close(TextOut);
...