program l(input,output);
var
b:integer;
a:integer;
begin
for a:=1 to 10 do;
begin
a:=a+1;
readln(b);
if b=7 then writeln('ok')
else writeln('no');
end;
readln;
end.
如上代码。编译环境：XP，free pascal 2.6.0。
如下问题：只能循环一次，请教一下什么原因

a是循环的有序变量，不能拿来做循环体内变量

for a：=1 to10 do
这错了，你重新把a换成其他字母，重新定义，我也初学，你多大？

Do 后的；去掉，上面的不能解决根本问题。

去掉do的分号，在第六行

’do‘后面的‘;’去掉
不然‘;'算一个空语句
。。。。。
。。。。。
。。。。。

金钱诚可贵，节操价更高。
但若为人品，两者皆可抛。

仔细看第六行