Поиск максимума, Найти в списке Опции

[-=Mikka=-]

Помогите плз.:
Нужно найти максимальное из чисел встрчающихся в односвязном списке более одного раза.
Мой способ(см ниже) не пашет, что не так? HE-E-E-E-LP мозг закипает :ypr:

Код

buff:=base;
 buff1:=base^.next;
 For i:=1 to n-1
   begin
     while buff1^.next<>nil do
       begin
         if buff^.data=buff1^.data then
           if buff^.data>max then max:=buff^.data;
         buff1:=buff1^.next
       end;
     buff:=buff^.next
   end;