работа со стеком

[Sparky]

Добрый день! пишу программу. Она работает со стеком, написала процедуру удаление элемента из конца:

procedure pop(var start:PList);  //снятие значения со стека(голова списка)
var
  q,p:PList;
begin
  if (start<>nil) then //если голова не пустая ищим конец
  begin
    q:=start;
    p:=start;
    while(q^.next<>nil) do  //пока сслыка на следующий есть ищем последний
    begin
      p:=q;
      q:=q^.next;
    end;
    p^.next:=nil;
    dispose(q);
  end;
end;

Но вот почему то если нужно удалить голову списка она не удаляется

[Stilet]

если нужно удалить голову списка она не удаляется

Во-первых, почему ты в цикле подбираешся к концу, вместо того чоб иметь переменную, указатель на конец?
Во-вторых, в каком смысле не удаляется?

[Sparky]

все вопрос можно закрывать =)