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

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

Можно... Только вместо этого:

   count:=0;

   for i:=1 to n do begin
       writeln;
       writeln;
       for j:=1 to m do begin
           write(x[i,j]:2,'  ');
           inc(count);
           y[count]:=x[i,j]; //Заполнение массивы элементами матрицы
       end;

   end;

я бы сделал так:

type arrType = array[1 .. m*n] of integer;
var
    y:arrType absolute x; { не правда ли, проще?  }

и (читай внимательнее мое сообщение ;) ) не использовал бы "пузырек", лучше что-нибудь более быстрое...