[s0Creator]

Причем процедура lmikle "GenerateList(N : Integer; St: TStrings);" хоть и является частным случаем моей "FillList(K, N : Integer; St: TStrings);"
(При K=N) работает в этом случае более эфективно, поэтому в мою можно добавить

Код:

procedure FillList(K, N : Integer; St: TStrings);
var
  ....
begin
  if K = N then
  begin
    GenerateList(N, St);
    Exit;
  end;
  ............

Кстати, на форуме случайно нет раздела где бы складывались такие вот процедурки - типа местной библиотеки?