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

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

[klem4]

вот такой вариант можно наверное :

uses
    crt;
const
    n=3;
    m=4;
   x:array[1..n,1..m] of integer =
   ((2,0,2,7),
    (4,5,6,23),
    (120,7,1,2)
    );

var
    y:array[1..n*m] of integer;
    i,j:integer;
    count,temp:integer;
    flag:boolean;
Begin

   clrscr;

   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;



   repeat // Сортировка
      flag:=true;
      for i:=1 to count-1 do
       if not(y[i]>=y[i+1]) then begin
           temp:=y[i];
           y[i]:=y[i+1];
           y[i+1]:=temp;
           flag:=false;
       end;
   until flag;

   writeln;

   i:=1;

   flag:=false;

   while(i<=count-1)and not(flag) do // Поиск max элемента, встречающегося >1 раза
    if y[i]=y[i+1] then flag:=true
   else inc(i);

   writeln;

   if flag then
    writeln('Result = ',y[i])
   else writeln('No');


   readln;

End.

ps про absolute не нашел как делать, по этому вручную заполнил массив.

Сообщение отредактировано: klem4 - 27.06.2005 17:16