Освобождение памяти - Free Pascal

Формулировка задачи:

Есть у меня структура односвязного списка:

type
        PSnow = ^TSnow;
 
        TSnow = record
                mX : Integer;
                mY : Integer;
                mColor : Word;
                mNext  : PSnow;
        end;

И я хочу освободить память. Мне нужно вызывать функцию освобождения для каждого mNext и потом головы, или достаточно для головы списка?

Решение задачи: «Освобождение памяти»

Листинг программы

while head<>nil do begin
  t:=head;
  head:=head^.next;
  Dispose(t);
end;

Объяснение кода листинга программы

Объявлен неотрицательный указатель head типа PNode (предполагается, что Node - это тип записи с полем next типа PNode) и инициализирован значением nil.
В цикле while выполняется проверка условия head<>nil.
В каждой итерации цикла в переменную t копируется значение head, а затем head присваивается значение head^.next.
В каждой итерации цикла выполняется вызов функции Dispose с аргументом t.
После окончания цикла переменная head остается равной nil.
Программа завершается.