Программа должна определить, какие сочетания карт дают в сумме вес 21

program TwentyOne;
 
type
  TWeight = array[0..8] of integer;
const
  CardWeight: TWeight = (6, 7, 8, 9, 10, 2, 3, 4, 11);
type
  TCardName = array[0..8] of string;
const
  CardName: TCardName = ('"6"', '"7"', '"8"', '"9"', '"10"', '"Jack"',
    '"Queen"', '"King"', '"Ace"');
 
var
  Combination, Mask: word;
  Sum, i: integer;
begin
  for Combination := 0 to (1 shl 9) - 1 do
  begin
    Sum  := 0;
    Mask := 1;
    for i := 0 to 8 do
    begin
      if Mask and Combination <> 0 then
        Sum := Sum + CardWeight[i];
      Mask := Mask shl 1;
    end;
    if Sum = 21 then
    begin
      Mask := 1;
      for i := 0 to 8 do
      begin
        if Mask and Combination <> 0 then
          Write(' ', CardName[i]);
        Mask := Mask shl 1;
      end;
      writeln;
    end;
  end;
end.