Двунаправленный список

[orandzheviyman]

PROCEDURE Poisk_Chisla (pHead : pElement; n : integer);
var minPara, i, maxRyad : integer;
BEGIN
  pAddt := pHead;
  Addt := pHead;
    while Addt^.Next <> NIL do
      Addt := Addt^.Next;
      
   if pAddt^.Data < Addt^.Data then
      maxRyad := pAddt^.Data 
        else
          maxRyad := Addt^.Data;
write ('First   ', pAddt^.Data); writeln ('Last    ', Addt^.Data);
  pAddt:=pAddt^.Next;
  Addt:=pAddt^.Prev;

 
  for i := 2 to n do begin
write ('First   ', pAddt^.Data); writeln ('Last    ', Addt^.Data);
    if pAddt^.Data < Addt^.Data then
      minPara := pAddt^.Data
        else
          minPara := Addt^.Data;
      if minPara > maxRyad then
        maxRyad := minPara;
        pAddt:=pAddt^.Next;
        Addt:=pAddt^.Prev;
                     end;   
  write ('Максимальное число из минимальных пар: ', maxRyad);
END;

Процедура выдаёт неправильный результат, искал баг, выяснилось что Addt с конца списка идёт криво. Помогите, пожалуйста!

[orandzheviyman]

удалите, я дурак, я увидел

[min@y™]

я дурак, я увидел

in the mirror?