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.