pascal 程序出错 请帮我看看

原代码：

program copytext(input,output,diskfile);
var
diskfile:text;
ch:char;
begin
writeln('Please input text');
writeln;
rewrite(diskfile);
while not eof do
begin
while not eoln do
begin
read(ch);
write(diskfile,ch);
end;
readln;
writeln(diskfile);
end;
writeln;
reset(diskfile);
while not eof(diskfile) do
begin
while not eoln(diskfile) do
begin
read(diskfile,ch);
write(ch);
end;
readln(diskfile);
writeln;
end;
end.

运行 看我空间
http://hi.baidu.com/oysterliu/blog/item/458d1cf680d28724730eec51.html

我的PASCAL程序运行出错咋办@@!!!! 该PASCAL为何程序出错 帮我解释一个PASCAL程序 我初级 PASCAL程序不知道是哪里出错了，请高手指点 大家帮我设计一个pascal程序好不？ Pascal程序高手帮我指点一下，谢谢！ 请帮忙修改PASCAL 程序 高手帮偶看一下程序哪里出错了（pascal） Pascal程序高手请给我指点一下，谢谢！（一个计算器程序） 一个pascal程序求助，请找出错误