k:= 0;
  flag:= false;
  for l:=0 to 48 do
  begin
    j1:=0;
    for i2:=0 to 19 do
    begin
      if aFlag[l,i2] then inc(j1);
    end;
    if j1 > 0 then
    begin
      if Flag then
        Continue;      if (k+1) < 9 then
      begin
        inc(k);
        ai[k - 1]:= l;
      end;
      Flag:= True;
      Continue;
    end;
    if Not Flag then
      Continue;
    if (k+1) < 9 then
    begin
      inc(k);
      ai[k - 1]:= l;
    end;
    Flag:= False;
  end;
---------------------------------------------------------
        int k = 0;
        boolean flag = false;
        int ai1[] = new int[20];
        for(int l = 0; l < 49; l++)
        {
            int j1 = 0;
            for(int i2 = 0; i2 < 20; i2++)
                if(aflag[l][i2])
                    j1++;            if(j1 > 0)
            {
                if(flag)
                    continue;
                if(++k < 9)
                    ai[k - 1] = l;
                flag = true;
                continue;
            }
            if(!flag)
                continue;
            if(++k < 9)
                ai[k - 1] = l;
            flag = false;
        }