怎么让这个程序符合这个输出条件：
四行，每行10个数，第个数占5个位置。
var a:array[1..32767]of boolean;
b:array[1..40]of integer;
i,s,t:integer;
begin
for i:=1 to 32767 do a[i]:=false;
write(1:8,2:8);
a[1]:=true;
b[1]:=1;
b[2]:=2;
s:=2;
repeat
i:=1;
while a[i] do i:=i+1;
write(b[s]+i:5);
b[s+1]:=b[s]+i;
for i:=1 to s do
a[b[s+1]-b[i]]:=true;
s:=s+1;
until s=40;
writeln;
end.

。。。

var i,j,ans,k:longint;
begin
ans:=0;
for i:=0 to 39 do
begin
inc(ans.i);
write(ans:4,' ');
if i mod 10=0 then writeln;
end;
end.
没调试，自己试试