program Copia (Velho, Novo);
{ copia o arquivo Velho no arquivo Novo }
const N = 30;
type TipoAlfa = array [1..N] of char;
     TipoData = record 
                  Dia: 1..31;
                  Mes: 1..12;
                end;
     TipoPessoa = record 
                    Sobrenome   : TipoAlfa;
                    PrimeiroNome: TipoAlfa;
                    Aniversario : TipoData;
                    Sexo        : (mas,fem);
                  end;

var Velho, Novo: file of TipoPessoa;
    Registro   : TipoPessoa;
begin
  reset (Velho);  rewrite (Novo);
  while not eof (Velho) do
    begin read (Velho, Registro); write(Novo, Registro); end
end.