Вывести на экран элементы списка, которые больше своих соседей

procedure Max(head:Plist);
var 
p,h,f:Plist;
begin
p:=head^.next;
h:=p^.next;
f:=h^.next;
while p<>nil do
begin
if (h^.info > p^.info) and (h^.info > f^.info) then
begin
writeln(h^.info);
p:=p^.next;
h:=h^.next;
f:=f^.next;
end
else
begin
p:=p^.next;
h:=h^.next;
f:=f^.next;
end;
end;
end;

procedure Max(head:Plist);
var 
  p,h,f:Plist;
begin
  p:=head
  while p<>nil do
  begin
    if p^.prev<>nil then
      if p^.next<>nil then
        if (p^.info > p^.prev^.info) and (p^.info > p^.next^.info) then
          writeln(p^.info);  
    p:=p^.next;
  end;
end;

    if p^.prev<>nil then {Сосед слева есть?}
      if p^.next<>nil then {Если есть сосед слева, проверяем, есть ли сосед справа!}

if p^.pred=nil then
 if (p^.info > p^.next^.info) then
  writeln(p^.info);
  p:=p^.next
else 
if p^.next=nil then
 if (p^.info > p^.pred^.info) then
  writeln(p^.info);
  p:=p^.next
else 
if (p^.info > p^.pred^.info) and (p^.info > p^.next^.info) then
writeln(p^.info);
  p:=p^.next