[lxa85]

Dodakaedr, еще разочек.
Чего надо сделать?

Код:

begin 
asignfile (f, textfile);
f.open();
writeln(f,'<?xml version="1.0"?>');
...
f.close();
end;

Так не пойдет? В общем виде.
Писал "на глаз", за корректность и работоспособность кода не гарантирую.