Код:
var
F : TextFile;
A, B, C, D, E : Integer;
begin
AssignFile(F, 'dict.txt');
Rewrite(F);
for E := Ord('a') to Ord('z') do
for D := Ord('a') to Ord('z') do
for C := Ord('a') to Ord('z') do
for B := Ord('a') to Ord('z') do
for A := Ord('a') to Ord('z') do
WriteLn(F, Char(E)+Char(D)+Char(C)+Char(B)+Char(A));
CloseFile(F);
end;
Давно, давно где-то это использовать собирался, да руки не дошли. Должно работать.