program testentry;
{programma che testa la unit entryadt}
uses entryadt;
var
 x,y:entry;
 n:chiave;

begin
 init(x,' ',0);
 writeln('Dammi un nome e un numero: ');
 leggientry(x,input,'');

 writeln;
 write('Dammi un nome: ');
 readln(n);
 init(y,n,0);
 if uguale(x,y) then writeln('Il numero e'' ',getnumber(x))
   else writeln('Nome non listato.');

 writeln;
 writeln('Ecco il contenuto dell''elenco: ');
 displayentry(x)
end.