input是标准文件指针，如果像你这样文件读入后又要在屏幕输入，要另定义：var …
f1,f2…:text;{定义文件指针f1、f2或更多}
…
begin
assign(f1,'文件1');
reset(f1);
read(f1,参数1,参数2…);{就是在原来基础上在第一位加个文件指针，不加就是从屏幕录入}
readln(f1,x1,x2…);
read(y1,y2…);{这个是从屏幕录入}
readln(z1,z2);{同上}
close(f1);
assign(f2,文件2);
rewrite(f2);
write(f2,表达式或参数…);{用法同read/readln}
…
close(f2);
…
似乎是你在关闭输入时又用了READLN
757
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024