Как дополнить скрипт от генератора комбинаций?

[vudu926]

У меня есть прога, вот она.

procedure rec(f:string;n,len:integer);
var
i:integer;
buf:string;
begin
buf:=marr[n];
if n=len-1 then begin
for i:=1 to Length(buf) do
AddPARR(f+buf[i]);
Exit;
end;
for i:=1 to Length(buf) do
rec(f+buf[i],n+1,len);
end;

Пожалуйста, оформляйте Ваш код согласно правилам.

Это генератор комбинаци по маске. Но пмшется всё в один файл можно ли дополнить код что бы при достижения определённого количества строк создавался новый txt файл и продолжалось писать дальше? Если вдруг есть такие знатоки то отпишитесь!

____
Тема закрыта, т.к. создан дубль в разделе Фриланс.
Модератор.