请高手指教，这个程序错在哪里？先谢谢哈
program tom-01;
var i,j,x:integer;
begin
writeln('x=',x);
readln(x);
for i:=1 to 30 then
begin
if x mod 2=0 then x:=x/4
else x:=x+5
i:=i+1
end;
j:=x;
writeln('j=',x);
readln;
end.
自己感觉x:=x/2有问题，编译过程中也确实出现了错误提示，但不知道错在哪里。盼各位高手指正。
program tom-01;
var i,j,x:integer;
begin
writeln('x=',x);
readln(x);
for i:=1 to 30 then
begin
if x mod 2=0 then x:=x/4
else x:=x+5
i:=i+1
end;
j:=x;
writeln('j=',x);
readln;
end.
自己感觉x:=x/2有问题，编译过程中也确实出现了错误提示，但不知道错在哪里。盼各位高手指正。
