帮忙找一下我的pascal数链错误

【问题描述】
对于顺序数组集合{1}，如果x属于这个集合，那么2x+1和3x+1也属于这个集合。输出这些数据中由小到大排的第n项数据（1≤n≤2500）
【输入格式】
一行一个数据n。
【输出格式】
一行一个数据，即第n项数据。
【样例】
输入：3 输出：4（前三项为1，3，4）
输入： 5 输出：9（前五项为1，3，4，7，9）
【说明】结果小于32767。

program exe_3(input,output);
var a:array[1..32766] of integer;
n,x,b,i,j,s:integer;
begin
for j:=1 to 32766 do a[j]:=0;
i:=1;
a[1]:=1;
s:=0;
read(n);
while s<>n do
begin
if a[i]<>0 then begin
s:=s+1;
x:=2*a[i]+1;
a[x]:=x;
b:=3*a[i]+1;
a[b]:=b;i：=i+1;
end
else
i:=i+1;
end;
writeln(a[i]);
end.
我是设两个计数器，一个是第几大，另一个是所在下标。

pascal数列找数纠错 数的划分(Pascal) 帮我找一下这个用Pascal编的程序有什么错？ 我要买一本关于PASCAL程序设计的书，帮忙推荐一下！ pascal编程 帮忙解决一下 pascal 帮忙做一下题目 帮忙看一下pascal题 我的主板驱动程序帮忙找一下 帮忙找一下我的老婆呀 如何用Pascal找2-1000中的亲密数对