Записать в текстовый файл все возможные промежуточные комбинации от числа 79290000000 до числа 79299999999

var
  f: Text;
  b: array [0..1024*8-1] of char;
  s: string;
begin
  Assign(f,'list.txt'); Rewrite(f); SetTextBuf(f,b,sizeof(b));
  s:='79290000000';
  for s[5]:='0' to '9' do
    for s[6]:='0' to '9' do
      for s[7]:='0' to '9' do
        for s[8]:='0' to '9' do
          for s[9]:='0' to '9' do
            for s[10]:='0' to '9' do
              for s[11]:='0' to '9' do
                WriteLn(f,s);
  Close(f);
end.

var
  f: Text;
  b: array [0..1024*32-1] of char;
  s: string;
begin
  WriteLn('Формируется файл list.txt. Ждите . . .');
  Assign(f,'list.txt'); Rewrite(f); SetTextBuf(f,b,sizeof(b));
  s:='79290000000';
  for s[5]:='0' to '9' do
    for s[6]:='0' to '9' do begin
      Write(Copy(s,1,6)+'* ');
      for s[7]:='0' to '9' do
        for s[8]:='0' to '9' do
          for s[9]:='0' to '9' do
            for s[10]:='0' to '9' do
              for s[11]:='0' to '9' do
                WriteLn(f,s);
    end;
  Close(f);
  WriteLn('Файл list.txt сформирован.');
end.

var
    i :longint;
    s :int64;
begin
    assign(output, 'list.txt');
    rewrite(output);
    s := 79290000000;
    for i := 0 to 9999999 do
        writeln(s + i);
end.