Program registoPax_Dat;
 Type 
  registo = Record
  nome: String;
  idade: integer;
 End;
Var 
ficheiro: file of Registo;
reg: registo;
continuar : char;
Begin
  assign(ficheiro, 'pessoas.dat');
    Rewrite(ficheiro);
    Repeat
      write('Digite o Nome: ');
      Readln(reg.nome);
      Write('Digite a Idade: ');
      readln(reg.idade);
      Write(ficheiro, reg); // escreve os dados no ficheiro
      Writeln('Deseja continuar (s/n)? ');
      continuar := upcase(ReadKey());
    Until continuar = 'N';
  Close(ficheiro);
End.