[K735Demon]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  f: textfile;
  i: integer;

begin
  AssignFile(f, 'c:\1.txt');
  Rewrite(f);
  for i := 0 to 9 do
    write(f, inttostr(i) + ' ');
  CloseFile(f);
end;

Admin: Пользуемся тегами!