NOIP08年的超级经典的题目，我换了一种方法做了一下，做错了，大家看看哪里错了！
题目：
1.ISBN号码
（isbn.pas/c/cpp）
【问题描述】
每一本正式出版的图书都有一个ISBN号码与之对应，ISBN码包括9位数字、1位识别码和3位分隔符，其规定格式如“x-xxx-xxxxx-x”，其中符号“-”是分隔符（键盘上的减号），最后一位是识别码，例如0-670-82162-4就是一个标准的ISBN码。ISBN码的首位数字表示书籍的出版语言，例如0代表英语；第一个分隔符“-”之后的三位数字代表出版社，例如670代表维京出版社；第二个分隔之后的五位数字代表该书在出版社的编号；最后一位为识别码。
识别码的计算方法如下：
首位数字乘以1加上次位数字乘以2……以此类推，用所得的结果mod 11，所得的余数即为识别码，如果余数为10，则识别码为大写字母X。例如ISBN号码0-670-82162-4中的识别码4是这样得到的：对067082162这9个数字，从左至右，分别乘以1，2，…，9，再求和，即0×1+6×2+……+2×9=158，然后取158 mod 11的结果4作为识别码。
你的任务是编写程序判断输入的ISBN号码中识别码是否正确，如果正确，则仅输出“Right”；如果错误，则输出你认为是正确的ISBN号码。
【输入】
输入文件isbn.in只有一行，是一个字符序列，表示一本书的ISBN号码（保证输入符合ISBN号码的格式要求）。
【输出】
输出文件isbn.out共一行，假如输入的ISBN号码的识别码正确，那么输出“Right”，否则，按照规定的格式，输出正确的ISBN号码（包括分隔符“-”）。
【输入输出样例1】
isbn.in
0-670-82162-4
isbn.out
Right
【输入输出样例2】
isbn.in
0-670-82162-0
isbn.out
0- 670-82162-4
我的程序：
program ISBN;
var ISBN1:string;
a:array[1..10]of integer;
i,max:integer;
begin
assign(input,'ISBN.in');
assign(output,'ISBN.out');
reset(input);
rewrite(output);
readln(ISBN1);
val((copy(ISBN1,1,1)),a[1]);
val((copy(ISBN1,3,3)),a[2]);
val((copy(ISBN1,4,4)),a[3]);
val((copy(ISBN1,5,5)),a[4]);
val((copy(ISBN1,7,7)),a[5]);
val((copy(ISBN1,8,8)),a[6]);
val((copy(ISBN1,9,9)),a[7]);
val((copy(ISBN1,10,10)),a[8]);
val((copy(ISBN1,11,11)),a[9]);
val((copy(ISBN1,13,13)),a[10]);
for i:=1 to 10 do max:=a[i]*i;
max:=max mod 11;
if max=a[10] then writeln('Right')
else write(a[1],'-',a[2],a[3],a[4],'-',a[5],a[6],a[7],a[8],a[9],'-',a[10]);
close(input);
close(output);
end.
速度要快啊 !!!!!!!!!!!!!!!!!!!!