可以这样，设一个输出的计数器k:
k:=0;
........
（循环中）
inc(k); write(x:6);
if k mod 10=0 then writeln;
........
比如说每行输出8个数：
var hh:byte;
Begin
...{主程序}
for i:=1 to ...{你要的循环次数} do
begin
...{输出的东西}
inc(hh);{每输出一次变量+1}
if hh=8 then
begin
writeln; {换行}
hh:=0; {初始化变量}
end;
end;
End.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024