Множества, никак не получается

procedure TForm1.Button1Click(Sender: TObject);
const
  N = 4;
var
  H, L : set of 0..127 + 127;
  i, j, CntH, CntL : Integer;
  Arr : array[1..N, 1..N] of Integer;
  StrTmp, StrH, StrL : String;
begin
  Memo1.Clear;
 
  Randomize;
  for i := 1 to N do begin
    StrTmp := '';
    for j := 1 to N do begin
      Arr[i, j] := -127 + Random(255); //-127..127.
      if StrTmp <> '' then StrTmp := StrTmp + #9;
      StrTmp := StrTmp + IntToStr(Arr[i, j]);
    end;
    Memo1.Lines.Add(StrTmp);
  end;
 
  H := [];
  L := [];
  for i := 1 to N do begin
    for j := 1 to N do begin
      if j > i then
        //Выше главной диагонали.
        H := H + [ Arr[i, j] + 127 ] //+127 - т. к. элементы множества не могут быть отрицательными.
      else if j < i then
        //Ниже главной диагонали.
        L := L + [ Arr[i, j] + 127 ]
      ;
    end;
  end;
 
  CntH := 0;
  CntL := 0;
  for i := 0 to 127 + 127 do begin
    if i in H then Inc(CntH);
    if i in L then Inc(CntL);
  end;
 
  if CntH = CntL then begin
    Memo1.Lines.Add('С обеих сторон от главной диагонали одинаковое количество различных элементов.');
  end else if CntH > CntL then begin
    Memo1.Lines.Add('Выше гл. диагонали различных элементов больше, чем ниже гл. диагонали.');
  end else begin
    Memo1.Lines.Add('Ниже гл. диагонали различных элементов больше, чем выше гл. диагонали.');
  end;
 
  Memo1.Lines.Add('Сравнение перечней различных элементов:');
  StrH := 'Выше гл. диагонали: ';
  StrL := 'Ниже гл. диагонали: ';
  for i := 0 to 127 + 127 do begin
    if i in H then begin
      StrH := StrH + #9 + IntToStr(i - 127);
    end;
    if i in L then begin
      StrL := StrL + #9 + IntToStr(i - 127);
    end;
  end;
  Memo1.Lines.Add(StrH);
  Memo1.Lines.Add(StrL);
 
end;