‘Not enough actual parameters’怎么会这样—PASCAL

在NOI FOR PASCAL 中调试通过但在
http://acm.hdu.edu.cn/
中提示错误‘Not enough actual parameters’

Var
cha:String;
Ch:Array [0..1001] Of Char;
a:Array [0..1001] Of LongInt;
t,n,i:LongInt;
Procedure qsort(l,r:LongInt);
Var
i,j:LongInt;
x,t:LongInt;
Begin
i:=l; j:=r;
x:=a[(l+r) Div 2];
Repeat
While a[i]<x Do inc(i);
While x<a[j] Do dec(j);
If i<=j Then
Begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
inc(i);
dec(j);
End;
Until i>j;
If i<r Then qsort(i,r);
If l<j Then qsort(l,j);
End;
BEGIN
Repeat
n:=n+1;
Read(ch[n]);
If ch[n]='5' Then n:=n-1;
Until ch[n]<>'5';
Repeat

Not enough physical memory not enough timer available not pretty enough歌词 a world is not enough Not enough credit balance 是什么意思？ Not enough timers available 是什么意思 not enough timer available 是什么意思 怎样使用not enough 句？ r6016 not enough space for thread data 3721反间谍:not enough timers available