procedure ClearList;
var
    CurrentTypeNode, NextTypeNode: PClothesTypeNode;
    CurrentNode, NextNode : PClothesNode;
begin
    CurrentNode := ClothesHead;
    while CurrentNode <> nil do
    begin
        NextNode := CurrentNode^.Next;
        Dispose(CurrentNode);
        CurrentNode := NextNode;
    end;
    ClothesTypeHead := nil;

    CurrentTypeNode := ClothesTypeHead;
    while CurrentTypeNode <> nil do
    begin
        NextTypeNode := CurrentTypeNode^.Next;
        Dispose(CurrentTypeNode);
        CurrentTypeNode := NextTypeNode;
    end;
    ClothesTypeHead := nil;
end;