[Ildar-tsr]

Точно i же у нас integer. Тогда

Код:

WriteLn(f,'номер '+IntToStr(i));