有人可以给我写回单向清单的程序吗？

Question

Unit prog;
     Interface
     Type
            Tinfo=char;
            Pelem= ^ Telem;
            Telem = record
                   Info:Tinfo;
                   Next: Pelem;
            End;

            List=record 
                   An: Pelem;
Implementation

End.