function max3 (l: list): real;
      begin
         if l^.next=nil then max3:=l^.value
         else if l^.value>max3(l^.next) then max3:=l^.value
         else begin
                 l^.value:=l^.next^.value;
                 max3:=l^.value
              end
      end;

вот этим маленьким кусочком прекрасного я ебал себе мозг где-то уже месяца три, если не считать прошлого учебного года. ДОПИСАЛ!!!!!
рекурсию я ебал в ухо!!!!