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.