[icWasya]

Что такое i?
Если

Код:

var i:Integer;

то

Код:

assignfile(outfile, 'outfile'+ IntToStr(i)+'.txt'); 

или

Код:

assignfile(outfile, format('outfile%d.txt',[i]));