我的程序出错了 代码=2

var
s:array[1..10]of string;
n,i,j,k,p,q:integer;
d:string;
a:array[1..10]of integer;
begin
assign(input,'gift1.in');
assign(output,'gift1.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
readln(d);
s[i]:=d;
end;
for i:=1 to n do
begin
readln(d);
readln(p,q);
for j:=1 to n do
begin
if d=s[j]
then
begin
dec(a[j],p);
inc(a[j],(p-(p div q)*q));
break;
end;
end;
begin
readln(d);
for k:=1 to n do
begin
if d=s[k]
then
begin
inc(a[k],(p div q))

我的程序出错了 为什么我已经编写了错误处理代码，程序还是会弹出运行出错的提示信息框呢？ 我的程序那出错了 我的JAVA程序哪出错了 我的程序怎么出错了! 我的程序在那里出错了？ 谁能帮我看看我的js代码哪出错了？ 我的这些代码那儿出错了呢（asp） Java访问数据库的代码帮我看下哪出错了 我的ASP代码中 哪里出错了?