Турбо Паскаль 7.0 Удаление из списка элемента

[Anatole]

sir.andrey попрбуй так:

rocedure vivod;
begin
h:=first;
write ('spisok:');
while h<>nil do begin
                      write (h^.data,' ');
                      h:=h^.next;
                      end;
if h<>nil then write (h^.data,' ');
end;

[sir.andrey]

Нет не прокатывает!

[Codemaster_N1]

Я, так понимаю, нужно удалить весь список?
Пусть head - указатель на начало списка.
получим:

procedure FreeMem(var head: ListPtr);
var
    ptr1, ptr2: ListPtr;
begin
    ptr1 := head;
    while ptr1 <> nil do
    begin
        ptr2 := ptr1^.next;
        Dispose(ptr1);
        ptr1 := ptr2;
    end;
end;

Если в процедуру передаётся действительно указатель на начало списка, то все элементы списка удаляются.