Access violation at adress...

[eatlant]

type pcell=^cell;
     cell=record
     i,j:Integer;
     next:pcell;
procedure delete_list(var pc:pcell);
var pc2,pc3:pcell;
begin
pc^.i:=0;
pc2:=pc^.next;
new(pc2);new(pc3);
while pc2<>nil do begin
 pc3:=pc2; pc2:=pc2^.next; dispose(pc3); 
 end;
dispose(pc2);
end;

В этом месте вылетает ошибка. Подскажите, в чем проблема?
В списке всегда есть хотя бы 1 эл-т.

[GunSmoker]

В том, что написан бред.

Ты создал новую запись: new(pc2); и тут же, не инициализировав её, читаешь из неё поле next: pc2:=pc2^.next; Поскольку pc2^.next у тебя указывает в космос (там мусор), то вторая итерация цикла вылетит при попытке дереференса pc2.

Не менее бредово выглядит и такая последовательность кода:

new(pc3);
...
pc3:=pc2;
...
dispose(pc3);

[eatlant]

сначала было так, то я уже пробывал:

procedure delete_list(var pc:pcell);
var pc2,pc3:pcell;
begin
pc^.i:=0;
pc2:=pc^.next;
while pc2<>nil do begin
 pc3:=pc2; pc2:=pc2^.next; dispose(pc3);
 end;
end;

и как это не инициализировал pc2?

pc2:=pc^.next;

подскажите, как тогда удалить весь список кроме первого элемента?

[GunSmoker]

Сообщение от eatlant

сначала было так, то я уже пробывал:

А это было правильно. pc^.next только забыл обнулить.

Сообщение от eatlant

и как это не инициализировал pc2?

Чему, по-твоему, у тебя равно pc2^.next после строчки new(pc2)?

Сообщение от eatlant

подскажите, как тогда удалить весь список кроме первого элемента?

procedure DeleteList(Head: PCell);
var
  Current: PCell;
  Next: PCell;
begin
  Current := Head^.Next;

  Head^.i := 0;
  Head^.Next := nil;

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

[eatlant]

Спасибо!
Теперь работает.