На этом шаге мы покажем как очистить однонаправленный список..
Приведем рекурсивную процедуру очистки однонаправленного линейного списка:
Procedure Free_List (var pList: PtrRec); Begin If pList<>Nil Then Begin Free_List (pList^.pNext); Dispose (pList); End; End;
На следующем шаге мы рассмотрим формирование списка с изменением порядка поступающих элементов.