Error: Ordinal expression expected

var a:array[1..100000]of byte；

b:array[1..100000]of char；

c,c2,n,i,j:qword；

begin

repeat

inc(n)；read(b[n])；

until(b[n]<’0’)or(b[n]>’9’)；

n:=n-1；

for i:=1 to n do begin

a[i]:=1；

for j:=1 to i do a[j]:=(a[j]+a[j-1])mod 10；

end；

for i:=2 to n do c:=(c+(ord(b[i])-48)*a[i])mod 10；

case c of

0:begin writeln(’100’)；halt；end；

3:begin writeln(’53’)；halt；end；

2:begin writeln(’22’)；halt；end；

8:begin writeln(’38’)；halt；end；

end；

for i:=1 to (n-1) do c2:=(c2+(ord(b[i])-48)*a[i])mod 10；

if c2<>0 then writeln(c2,c) else writeln(c)；

end.

for i:=1 to (n-1) do c2:=(c2+(ord(b[i])-48)*a[i])mod 10；

qword不能做for循环的范围

Thanks~~