Question

关于一个PASCAL程序错误的原因

帮助看下以下程序错在哪了
感激不尽！！！
program ex54;
var
n:array[1..5,1..6] of 1..100;
i,j:1..6;
procedure enter;
begin
fillchar(n,sizeof(n),0);
for i:=i to 5 do
n[i,1]:=i;
for i:=1 to 5 do
for j:=2 to 4 do
begin
read(n[i,j]);
writeln;
end;
for i:=1 to 5 do
for j:=2 to 4 do
n[i,5]:=n[i,5]+n[i,j];
end;
procedure minci;
var
a:array[1..5] of 1..100;
k,t:1..6;
begin
for i:=1 to 5 do
a[i]:=n[i,4];
for i:=1 to 4 do
k:=i;
for j:=i+1 to 5 do
if a[j]>a[k] then k:=j;
if i<>k then
begin
t:=a[i];
a[i]:=a[k];
a[k]:=t;
end;
for i:=1 to 5 do
for j:=1 to 5 do
if n[j,4]=a[i] then n[j,5]:=i;
end;
begin
enter;
minci;
for i:=1 to 5 do
begin
for j:=1 to 6 do
write(n[i,j]:5);
writeln;
end;
end.

PS：错误为201
这个程序的题目是输入5个同学的3科成绩，求总分和名次，并按学号输出。

Answer 1

我来看看……好像没错……真的……我运行了……成功了……输入了15个数，输出了个6*5的方阵……我用的free pascal 你重起下你的电脑或者pascal试试看

我不看您的程序了……您老师教您用这么多procedure……看得我头昏……只是wo运行没问题……

哦，那个201错误是范围检查错 大概您范围定义的太小了，加的和大了，您以后别那么吝啬用1..100;来定义，integer多好啊……那么大内存还怕不够一个小小程序用……是这个问题吗？