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

[-=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;

[volvo]

-=Mikka=-,
Немного не так... Вот так должно быть:

max := 0; 
buff := base;
while buff <> nil do begin
  count := 0;
  p := buff^.next;
  while p <> nil do begin
    { ищем повторы элемента buff^.data }
    if p^.data = buff^.data then inc(count);
    p := p^.next;
  end;

  { если есть повторы, то сравниваем элемент buff^.data с текущим максимумом }
  if (count > 0) and (buff^.data > max)
    then max := buff^.data

  buff := buff^.next;
end;