TurboPascal-списки

Народ, набросайте пожалуйста маленький исходник для работы со списками только с функцией добавления add(s: string) список - линейный type b=^a a=record data: string; next: b; end;

*** А то лекцию хреново начитали ...