pascal里关于集合和记录的问题..口袋中有红黄蓝白黑5种颜色的5只小球,每次从口袋里取出3只球,问

pascal里关于集合和记录的问题..口袋中有红黄蓝白黑5种颜色的5只小球,每次从口袋里取出3只球,问
口袋中有红黄蓝白黑5种颜色的5只小球,每次从口袋里取出3只球,问：最多有几种不同颜色的组合.他给出的程序我有点看不懂.
const
m=30;
type
color=(re,ye,be,wh,bc);
colset=set of color;
arrset=array[1..m] of colset;
var
p,n:integer;
a:arrset;
i,j,k:color;
b:colset;
yes:boolean;
begin
for p:=1 to m do a[p]:=[];
n:=0;
for i:=re to bc do
for j:=re to bc do
if ij then for k:=re to bc do
if (kj) and (ki) then
begin
b:=[i]+[j]+[k];
yes:=true;
for p:=1 to m do
if b=a[p] then yes:=false;
if yes then begin n:=n+1;
a[n]:=b;
end;
end;
for p:=1 to n do
begin
for i:=re to bc do
if i in a[p] then
case i of
re:write('red':20);
ye:write('yellow':20);
be:write('blue':20);
wh:write('whilte':20);
bc:write('black':20)
end;
writeln;
end;
writeln('total num is:',n);
end.

const
m=30;
type
color=(re,ye,be,wh,bc);｛枚举类型,定义5种颜色｝
colset=set of color;｛元素为color类型的集合｝
arrset=array[1..m] of colset;｛元素为colset类型的数组｝
var
p,n:integer;
a:arrset;
i,j,k:color;
b:colset;
yes:boolean;
begin
for p:=1 to m do a[p]:=[];
n:=0;｛初始化｝
for i:=re to bc do｛枚举第一种颜色i｝
for j:=re to bc do｛枚举第二种颜色j｝
if ij ｛判重｝then for k:=re to bc do ｛枚举第三种颜色k｝
if (kj) and (ki) then｛判重｝
begin
b:=[i]+[j]+[k];｛记录该情况｝
yes:=true;
for p:=1 to m do
if b=a[p] then yes:=false;
if yes then begin n:=n+1;
a[n]:=b;
end;｛如果该情况没出现过,放入a数组｝
end;
for p:=1 to n do
begin
for i:=re to bc do
if i in a[p] then
case i of
re:write('red':20);
ye:write('yellow':20);
be:write('blue':20);
wh:write('whilte':20);
bc:write('black':20)
end;｛输出｝
writeln;
end;
writeln('total num is:',n);
end.
再问： begin b:=[i]+[j]+[k];｛记录该情况｝ yes:=true; for p:=1 to m do if b=a[p] then yes:=false; if yes then begin n:=n+1; a[n]:=b; end;｛如果该情况没出现过，放入a数组｝ 这一点能不能再详细讲一下？尤其是if yes那儿
再答： begin b:=[i]+[j]+[k];｛记录该情况｝ yes:=true;｛yes赋初值true｝ for p:=1 to m do｛枚举a数组每个元素（其实只要p:=1 to n即可 因为n记录了数组有效元素个数）｝ if b=a[p] then yes:=false;｛如果a数组中存在某个元素a[p]=b(说明b已出现过)，则标记yes为false｝ if yes then begin n:=n+1; a[n]:=b; end;｛如果该情况没出现过，放入a数组｝
再问： 我主要是想问这 if yes then begin n:=n+1; 为什么是yes，我觉得应该是true阿。
再答： yes代表了b是否出现过 是个boolean类型的值 一开始为true 查找过程中 若发现b=a[p]则赋为false 循环结束后进行判断 若yes值为true 说明b没出现过 记录b