pascal高手帮忙看下,这段代码错在哪里

来源：百度知道 编辑：UC知道 时间：2024/05/25 14:12:50
program snbl;
begin
val a,b,c,d : integer;
st,st1:string;
read(st);
st1:=st;
delete(st,12,1);
delete(st,6,1);
delete(st,2,1);
b:=0;
c:=0:
d:=0;
for a :=1 to 9
begin
c:=(ord(st[a]-ord(a))*a;
b:=b + c
end
begin
d:= b mod 11
end
if d=(ord(st[13]-ord[0]) then writeln ('right')
else begin
st1[13]:=chr(d);
writeln(st1)
end
end.

错误是Prog65741.pas(3,5) Fatal: Syntax error, "(" expected but "identifier A" found
Fatal: Compilation aborted
是这一题每一本正式出版的图书都有一个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,再

program snbl;
var a,b,c,d : integer;
st,st1:string;
begin
read(st);
st1:=st;
delete(st,12,1);
delete(st,6,1);
delete(st,2,1);
b:=0;
c:=0:
d:=0;
for a:=1 to 9 do
begin
c:=(ord(st[a]-ord(a))*a;
b:=b+c;
end;
d:=b mod 11 ;
if d=(ord(st[13]-ord[0]) then writeln ('right')
else
begin
st1[13]:=chr(d);
writeln(st1);
end;
end.

首先我想说 这段程序是哪儿来的...
编得算长了...
不过定义变量嘛
使用var
还有var要用在begin前 program后
所以程序应该是
program snbl;
var a,b,c,d : integer;
st,st1:string;
begin
read(st);
st1:=st;
delete(st,12,1);
delete(st,6,1);
delete(st,2,1);
b:=0;
c:=0;
d:=0;
for a :=1 to 9
begin
c:=(ord(st[a]-ord(a))*a;
b:=b + c
end
begin
d:= b mod 11
end
if d=(ord(st