program testentryobj; {programma che testa la unit entryobj} uses entryobj; var x,y:entry; n:chiave; begin x.init(' ',0); writeln('Dammi un nome e un numero: '); x.leggientry(input,''); writeln; write('Dammi un nome: '); readln(n); y.init(n,0); if x.uguale(y) then writeln('Il numero e'' ',x.getnumber) else writeln('Nome non listato.'); writeln; writeln('Ecco il contenuto dell''elenco: '); x.displayentry end.