Сборщик мусора в динамическом списке

[Homutova_Julia]

(Помогите пожалуйста исправить ошибку)

implementation 

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

 //сбор мусора 
 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; end ; 
 CollectGarbage(); 
 end;

[mss]

TPSlovo у тебя зачем ? Чтобы просто любоваться им ?)

[Stilet]

Как-то я не оч. понял что этим кодом нужно...

[Homutova_Julia]

Весь код программы

implementation 

 {$R *.dfm} 
 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; end ; 
 CollectGarbage(); 
 end;
end.

[Homutova_Julia]

Не понимаю где ошибка

//Удаление повторов
procedure TForm1.Button2Click(Sender: TObject);
var node: TPSlovo; //новый узел
curr: TPSlovo;//текущий узел
pred: TPSlovo; //предыдущий относительно curr узел
next: TPSlovo;//следующий щтносительно curr узел
n:integer; // длина (количество элементов) списка
st: string; //строка представление списка
begin
curr^.Slovo:=Edit1.Text; //фамилия

//Если элементы повторяются, то оставить один из них
if Curr^.next=Curr^.pred then
begin
// Удаление из списка
curr:=next;
next:=curr^.next;
Dispose(next);
//отчистить поля ввода
Edit1.Text:='';
 end;
//вывести список в Label3
n:=0;
st:='';
curr:=head; //указатель на первый элемент списка
while curr<>NIl do
begin
  n:=n+11;
  st:=st+curr^.Slovo+#13;
  curr:=curr^.pred;// указатель на следующий элемент
end;
if n<>0 then Label3.Caption:='Список после удаления повторов'+#13+st
else ShowMessage('В списке нет элементовю');

end;