unit ubasico; interface uses dialogs; procedure gravaModeloBasico (nomeArq: string); implementation const modeloBasico: array[1..27] of string = ( '<<>>', '', '', '[TÍTULO]', '', '', '

', 'logotipo', '  ', '[CABEÇALHO]', '

', '
', '<<>>', '', '<<>>', '

[TÓPICO]

', '<<>>', '', '<<>>', '
', 'Envie carta para [AUTOR]', '
', 'Licença Creative Commons 2.0 - 2002-2020 - InterCAP - NCE/UFRJ e HCTE/UFRJ
', '
', '', '', '<<>>'); procedure gravaModeloBasico (nomeArq: string); var arq: textFile; i: integer; begin assignFile (arq, nomeArq); {$I-} rewrite (arq); {$I+} if ioresult <> 0 then begin showMessage ('Modelo básico (modelo.mdl) não pode ser gravado'); exit; end; for i := 1 to length(modeloBasico) do writeln (arq, modeloBasico[i]); closeFile (arq); end; end.