TURBO PASCAL

             Как показано в процедуре DisposeChecks в  Примере  8.10,  вы
        можете перебрать  список,  дойдя  до каждого элемента и освободив
        его.

             procedure DisposeChecks;
             var Temp: PCheck;
             begin
               CurrentCheck := ListOfChecks;        { указывает на первую
                                                      запись }
               while CurrentCheck <> nil do
               begin
                 Temp := CurrentCheck^.Next  { сохранить указатель Next }
                 Dispose(CurrentCheck);   { освобождение текущей записи }
                 CurrentCheck := Temp;    { сделать сохраненную запись
                                            текущей }
               end;
             end;

             Пример 8.10 Освобождение памяти для связанного списка.