Генератор чисел в Паскале

[andertalec]

ПОМОГИТЕ,КТО МОЖЕТ,решить проблему ! Вот задачка :
"Диапазон целых чисел от 1 до 100; из этого диапазона выбираем любые, к примеру 15 чисел. И вот из этих 15-ти чисел нужно составить ВСЕ возможные варианты,так, чтобы в каждом ряде было к примеру по 10 чисел.Числа в ряду не должны повторяться". Типа: 1123;13345; И 1234-2341 это два одинаковых ряда,просто числа местами переставлены.
Если задать до 5-ти чисел,то всё ок.
А проблема в том,что программа выдаёт половину вариантов рядов при задании ей 6-ти и более чисел.

 var   
       a: array[1..100] of integer;
       j, k, i, col, n: integer;
       s: string;
 begin
       randomize;
       write('Количество чисел = ');
       readln(col);
       write('В каждом ряде чисел = ');
       readln(n); 
       writeln('Введите числа: ');
      for i := 1 to col do  readln(A[i]);  // Ввод чисел
      for k := 1 to col - n + 1 do
      for i := 0 to col - n do
 begin
      s := inttostr(a[k]);
      for j := k + 1 to col - i do
 begin
      if ((length(s + ' ') / 2) + 1) = n then  
      writeln(s + ' ' + inttostr(a[j + i])) 
      else
      s := s + ' ' + inttostr(a[j + i]);
     end;
   end;
 end.