Program File_Hello;
{
   Este programa cria um arquivo texto em disco - hello.txt
   cujo conteudo e a mensagem "Hello world!".
}

Var
  ArqTxt: Text;  { Define uma variavel ArqTxt do tipo arquivo texto=string }

Begin
  assign(ArqTxt,'hello.txt');  { Associa o nome do arquivo a variavel ArqTxt }
  rewrite(ArqTxt);             { Cria um novo arquivo em disco }
  writeln(ArqTxt);                 { Escreve uma linha em branco no arquivo }
  writeln(ArqTxt,'HELLO WORLD!');  { Escreve o texto no arquivo }
  writeln(ArqTxt);                 { Escreve uma linha em branco no arquivo }
  close(ArqTxt);                   { Fecha o arquivo }
end.