Program registoPax_TXT;
Type registo = Record
     nome: String;
     idade: integer;
End;
Var 
ficheiro: file of Registo;
reg: registo;
continuar : char;
Begin
 Assign(ficheiro, 'pessoasq.txt');
	{$I-}
	Reset(ficheiro);
	{$I+}
	If IOResult = 0 then
		Seek(ficheiro, FileSize(ficheiro)) {Vai p/fim do ficheiro}
	Else
		ReWrite(ficheiro);
	
	Repeat
		Write('Digite o Nome: ');
		Readln(reg.nome);
		Write('Digite a Idade: ');
		Readln(reg.idade);
		Write(ficheiro, reg);
		Writeln('Deseja continuar (s/n)? ');
	 continuar := upcase(ReadKey);
	Until continuar = 'N';
 Close(ficheiro);
End.