program testdata;
{programma che prova la unit dataunit usando il file di testo date.pas}
uses dataunit;

var infile,outfile:text;
    infilename:string;
    g,nextg:data;

begin
  write('Nome del file di input:');
  readln(infilename);
  assign(infile,infilename);
  reset(infile);

  assign(outfile,'prosdate.pas');
  rewrite(outfile);

  while not EOF(infile) do
  begin
  leggidata(infile,g);
  scrividata(outfile,g);
  write(outfile,' e'' seguito da ');
  datasuccessiva(g,nextg);
  scrividata(outfile,nextg);
  writeln(outfile);

  end;

  close(infile);
  close(outfile);
  writeln('L''output di questo programma si trova nel file prosdate.pas')
end.