program testList(Input{teclado}, Output{Vídeo});
uses
   wincrt,
   TADlista;
Type
   TP_Particular = ^NO_Real;
   NO_Real = Object(T_DadoG)
                      Item: Real;
                      procedure Imprime; virtual;
                   end;
   procedure NO_Real.Imprime;
   begin
       writeln('Numero real = ',Item:4:2);
   end;

Var
   P: T_Lista;
   Particular: TP_Particular;
   Geral: TP_DadoG;
   ok: Boolean;
begin
   P.Cria;
   New(Particular);
   Particular^.Init;
   Particular^.Item:= 1.23;
   Geral:= Particular;
   P.InsereInicio(Geral);

   New(Particular, Init);
   Particular^.Item:= 2.34;
   {Geral:= Particular;}
   P.InsereInicio(Particular);

   New(Particular, Init);
   Particular^.Item:= 3.45;
   P.InsereInicio(Particular);

   P.Listar;
   P.RemoveInicio;
   P.Listar;
   Geral := P.VerInicio;
   Geral^.Imprime;
   P.Destroi;
end.