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

[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 файл и продолжалось писать дальше? Если вдруг есть такие знатоки то отпишитесь. Если всё попрёт то могу денежку отправить.

[Magakudesnik]

Сделаю, пишите на скайп: daniil.nazarov
или почту: magakudesnik@gmail.com

[MansMI]

mansmi@rambler.ru пишите

[JIeIIIa]

Если еще актуально, пишите: stealth(собака)bigmir.net
Сразу указывайте на когда нужна работа и предполагаемый бюджет.

[Igor[Игорь]]

igor23dec@yandex.ru
ICQ 2168364