LP - Gerando Arquivo - Pascal

Program registro;  
  var nome: string;
  arq_nome: text;

begin
  
  Writeln('Digite seu nome....: ');
  Readln(nome);

  assign(arq_nome,'nome.txt');
  rewrite(arq_nome);
  write(arq_nome,nome);
  close(arq_nome);

end.