Не могу организовать сборщик мусора

[Homutova_Julia]

type
TPSlovo=^TSlovo; //Указатель на тип слово
TSlovo=record
Slovo:string[20];//слово
next:TPSlovo;//следующий элемент списка
end;
var
head: TPSlovo;//Начало (голова) списка

//Добавить элемент в начало списка
procedure TForm1.Button1Click(Sender: TObject);
var node: TPSlovo; //новый узел
curr: TPSlovo;//текущий узел
pre: TPSlovo; //предыдущий относительно curr узел
begin
new(curr);//новый элемнт списка
curr^.Slovo:=Edit1.Text; //фамилия

// Добавление в начало списка  узла в список
//сначала найдем подходящее в списке места для узла
curr^.next:=head;
head:=curr;
//отчистить поля ввода
Edit1.Text:=' ';

end;


//вывести список
procedure TForm1.Button2Click(Sender: TObject);
var curr: TPSlovo; //текущий элемент списка
n:integer; // длина (количество элементов) списка
st: string; //строка представление списка
begin
n:=0;
st:=' ';
curr:=head; //указатель на первый элемент списка
while curr<>NIl do
begin
  n:=n+1;
  st:=st+curr^.Slovo+#13;
  curr:=curr^.next;// уазатель на следующий элемент
end;
if n<>0 then ShowMessage('Список'+#13+st)
else ShowMessage('В списке нет элементовю');
end;


// начало работы программы
procedure TForm1.FormActivate(Sender: TObject);
begin
head:=nil; //список пустой
end;


//сбор мусора
procedure TForm1.Button3Click(Sender: TObject);
var
  i:integer;
  k:integer;
begin
for i:=1 to k do
for k:=1 to i-1 do
if TSlovo^[i]=TSlovo^[k] then
begin
  TSlovo^[i]:=GARBAGE_VALUE;
  NumGarbage:=NumGarbage+1;
  CollectGarbage();
end;

[mss]

TSlovo[^i]

Это что за ересь ?
Нет такой конструкции ни в Паскале ни в Делфи в частности)

А что собссно подразумевается под "мусорным" элементом ?

[Homutova_Julia]

"Мусорный" элемент - это повторяющийся элемент в списке

[mss]

И что с таковыми нужно сделать - удалить из списка ? или что ?
Ты вообще в состоянии вразумительно описатиь задачу, без отсебячины, именно в том виде как ее сформулировал препод ?)

[Homutova_Julia]

Дан список слов, из каждой группы подряд идущих одинаковых слов оставить только одно.

[mss]

Ну и причем тут "сборка мусора" ?

"оставить только одно" означает только одно - УДАЛИТЬ повторяющиеся элементы из списка.
А ты вместо этого зачем-то пытаешься элементам присвоить какое-то невесть откуда взявшееся "GARBAGE_VALUE" ..