UNIT charList; INTERFACE Type TElem = char; TList = ^TNode; TNode = record Info: TElem; Next: TList end; {$I List.pas} end.