[ssg]

Как создать текстовый файл с числами от 000000 до 999999? количество цифр в одном числе=i

[M.A.D.M.A.N.]

Код:

var i:integer;
f:textfile;
begin
assignfilw(f,'c:\123.txt');
rewrite(f);
for i:=0 to 999999 do
  writeln(f,i:6);
closefile(f);
end;

[ssg]

пасиб большое