用PASCAL语言实现一个程序 要求从1到33里列出不重复的6个数加起来的和为100的数组

var a,b,c,d,e,f:integer;
begin
for a:=1 to 28 do
for b:=a+1 to 29 do
for c:=b+1 to 30 do
for d:=c+1 to 31 do
for e:=d+1 to 32 do begin
f:=100-a-b-c-d-e;
if f>e then
writeln(a,' ',b,' ',c,' ',d,' ',e,' ',f);
end;
end.

program ex;
var tot,a,b,c,d,e,f:integer;
begin
tot:=0;
for a:=1 to 28 do
for b:=a+1 to 29 do
for c:=b+1 to 30 do
for d:=c+1 to 31 do
for e:=d+1 to 32 do
for f:=e+1 to 33 do
if (a+b+c+d+e+f=100) then
begin
writeln(a,' ',b,' ',c,' ',d,' ',e,' ',f);
tot:=tot+1;
if tot=6 then halt;
end;
end.

var
a:array[1..6] of integer;
g,j:integer;
begin
g:=0;
for a[1]:=1 to 33 do
for a[2]:=2 to 33 do
if a[1]<&g