Односвязный список, Помогите найти ошибку Опции

[Rocket]

В данной программе у меня не корректно работает удаление,а именно:не удаляется последний добавленный элемент. В чём причина?

[Rocket]

Вот этот фрагмент:

procedure ToDelete(var first:list; x:integer);
 var
  temp:list;
  extra:list;
  found:boolean;
  
 begin
  found:=false;
   if first<>nil then
   if first^.info=x then
   
    begin
     found:=true;
     temp:=first;
     first:=first^.next;
     dispose(temp)
    end
    
    else
    extra:=first;
    while not found and (extra^.next<>nil) do
    if extra^.next^.info=x then found:=true
    else extra:=extra^.next;
    if found then
     begin
     temp:=extra^.next;
     extra^.next:=temp^.next;
     dispose(temp);
     end;
 end;

Не могу понять,где не хватает операторных скобок...вроде всё на месте...хотя...