Динамические списки

[МихаилС]

Всем доброго времени суток. Пытаюсь понять тему - динамические списки. Написал прогу, которая создаёт список из 10000 звеньев с цифрами. Мне говорили, что если после выполнения программы не удалить динамические переменные из памяти, то они останутся там висеть. Я не очень понял добавление новых звеньев и переход по ним . Но у меня получилась вот такая вот прога. Можете подсказать, как правильно удалять динамич. переменные и переход с одного звена на другое! Много всего уже перечитал по этому поводу, но не до конца понял.

program List;
Type Uk =^zapisj;
Zapisj = record
data: integer;
next: uk;
end;
Var tek,nach:uk;
i:integer;
begin
tek:=nil;
for i:=1 to 10000 do
begin
New(nach);
Nach^.data:=i;
Nach^.next:=tek;
tek:=nach;
end;
while nach<>nil do
begin
Writeln(nach^.data);
nach:=nach^.next;
end;
while tek<>nil do
begin
nach:=tek;
tek:=tek^.next;
dispose(nach);
end;
end.