Работа с односвязным списком. Опции

[LivingShadow]

Здравствуйте, уважаемые форумчане. Есть такое задание:
Удалить из списка один элемент после первого элемента с нулевым значением, если его значение отлично от него.

Написал я для этого дела такую процедуру:

procedure DelX(var start:link);
var p,pr:link;
	k:integer;
begin
Writeln('Удаление из списка первого элемента после нуля (если это не ноль)');
  k:=0;
  p:=start;
  while (k=0) AND (p<>nil) do 
  begin
   if (p^.inf=0) then
	   begin
		 p:=p^.next;
		 if (p^.inf=0) then k:=1
		 else 
		   begin	 
			pr^.next:=p^.next;
			dispose(p);
			p:=pr^.next;
			k:=1;
		  end;
	   end
   else begin pr:=p; p:=p^.next; end;	
  end;	   
   if k=0 then writeln('Ни одного нуля не найдено.'); 
   Write('Нажмите любую клавишу');
   readln;
end;

Но она очевидно неправильная. Во-первых, когда после нуля идет число, то она удаляет не только это число, но и сам нуль. Когда два нуля подряд - все нормально. Во-вторых программа вылетает, когда список начинается с нуля.
Буду очень благодарен, если сможете указать на мои ошибки.