Помогите сделать программу генерирующую файл

[rainbow]

Помогите сделать программу, которая по нажатию определенной кнопки генерирует текстовые файлы в них должны быть строки из 5 и 6 латинских букв или цифр:
Это должно быть представлено в текстовом файле в следующем виде:

00000
00001
00002
00003
00004
00005
00006
00007
00008
00009
0000a
0000b
........ (и так далее до)
zzzzz

И из 6 цифр или букв

000000
000001
000002
000003
000004
000005
000006
000007
000008
000009
00000a
00000b
........(и так далее до)
zzzzzz

[_SERGEYX_]

Не совсем понял... Ну с цифрами понятно,
Format('%.*d', [5 или 6, значение плюс один]);
а Символы?
По второму кругу после
00000a
00000b
должно быть
0000aa
0000ab?

[rainbow]

По второму кругу должно быть
000010
000011
000012
000013
000014
000015
000016
000017
000018
000019
00001a
.........
00001z
По третьему
000020
000021
000023
.........
00002z
и т.д.
Последняя запись в файле должна быть
zzzzzz
Т.е сначало цифры от 0 до 9, затем буквы от a до z

[eoln]

Этакая 36-тиричная система счисления (26 букв + 10 цифр). Можно в лоб 6-ю циклами, но в любом случае файл получится размеров 2 176 782 336 байт не считая символы #10#13. Вы уверены, что нужен файл размером более 2 гигобайт?

[rainbow]

eoln
Мне нужен не файл, а исходный код программы, которая это делает.
Символы не надо, надо только цифры и маленькие латинские буквы.
И строки не должны состоять более чем из 6 букв или цифр.

[eoln]

Я ошибся с подсчётом, 2 176 782 336 это не байт а вариантов, в байтах это будет столько 13 060 694 016
Итак, вот вам исходный код как заполнять, но в вашем случае замените

const
  n = 6; //длина "слова"
  m = 2; //система счисления
  mn: array[1..m] of char = '0a';

на

const
  n = 6; //длина "слова"
  m = 36; //система счисления
  mn: array[1..m] of char = 
'0123456789abcdefghijklmnopqrstuvwxyz';

Для двоичной системы счисления

procedure TForm1.Button1Click(Sender: TObject);
const
  n = 6; //длина "слова"
  m = 2; //система счисления
  mn: array[1..m] of char = '0a';
var    
  i: byte;
  s: string[n];
  r: array[1..n] of byte;
begin
  //массив с номерами символов из массива mn
  for i := 1 to n do r[i] := 1;
  repeat //бесконечный цикл
  s := '';
  for i := 1 to n do s := s + mn[r[i]];//построение слова
  richedit1.Lines.Add(s);//вывод готового слова
  inc(r[n]);//увеличение младшего разряда
  for i := n downto 1 do
  begin
    //если значение разряда не переполнено, то всё норм
    if r[i] <= m then break; 
    if i = 1 then exit; //старший разряд заполнен - всему конец
    r[i] := 1;//сброс при переполнении
    inc(r[i-1])//и увеличение более старшего разряда
  end;
  until false  
end;

[JTG]

Гг, бешенный словарь для брута?

[rainbow]

eoln Спасибо большое, я тоже думал сделать через массив только как не додумался.
Только RichEdit пришлось на Memo заменить, с RichEdit просто не видно как прога работает, и можно подумать что она повисла.

Сообщение от JTG

Гг, бешенный словарь для брута?

Да нет, у меня задание такое тупое.