Gerando um arquivo html

AssignFile(Arq, 'nomearq.html');
Rewrite(Arq);
Writeln(Arq, 'tag');
Writeln(Arq, 'tag');
Writeln(Arq, 'tag');
Writeln(Arq, 'tag');
CloseFile(Arq);