Сортировка односвяного динамического списка методом обмена

[MyQwErTy]

Доброго времени суток! Есть дин. список и требуется его отсортировать по возрастанию методом обмена, но в институте мы проходили только сортировку массивов, а не списков. Кому не жалко напишите процедурку на паскале, пожалуйста. Заранеее спасибо!

[Utkin]

Что из себя представляет твой список? Списки разные бывают... Покажи его структуру.

[MyQwErTy]

spisok=^zveno;
     zveno=record
              el:stroka;
              ball:real;
              next:spisok;
     end;

сортировку надо проводить по "ball"

[MyQwErTy]

ну что, никто не знает??

[Chudo4258]

Сортировка списка выбором (в порядке возрастания).
Идея решения: пусть часть списка (по K-й указатель включительно)
отсортирована. Нужно найти в неотсортированной части списка
минимальный элемент и поменять местами с (K+1)-ым.

Type BT = real;
            U = ^Zveno;
            Zveno = Record
             Inf : BT;
             el:string;
             Next: U
            End;

var vsp0,vsp,k:U
     S:U;//указатель на начало списка.
     x:BT;
     srt:string; 
vsp0:=S;
while vsp0<>nil do
  begin
  vsp:=vsp0;
  K:=vsp0^.Next;
  while K<>nil do
   begin
    if K^.Inf<=vsp^.Inf then vsp:=K;
    K:=K^.Next;
   end;
  x:=vsp0^.Inf;
  str:=vsp0^.el;
  vsp0^.Inf:=vsp^.Inf;
  vsp0^.el:=vsp^.el;
  vsp^.Inf:=x;
  vsp^.el:=str;
  vsp0:=vsp0^.Next;
  end;

Сортировка по Inf.

[Chudo4258]

Возможно методы попутал. Расскажите суть "метода обмена".

[MyQwErTy]

метод обмена заключается в том, чтобы проводить сравнение пар соседних элементов

[Chudo4258]

Type BT = real;
            U = ^Zveno;
            Zveno = Record
             Inf : BT;
             el:string;
             Next: U
            End;

var vsp0,vsp,k:U
     S:U;//указатель на начало списка.
     x:BT;
     srt:string;

function pr(S:U):boolen;//проверяет отсортирован ли список
var vsp:U;
begin
 pr:=true;
 vsp:=S;
 while vsp^.next<>nil do
  begin
    if vsp^.Inf>vsp^.next^.inf then pr:=false
    vsp:=vsp^.next;
  end;

begin
 while not(pr(S)) do 
 begin
  vsp:=S;
   while vsp^.next<>nil do
     begin
      if vsp^.Inf>vsp^.next^.inf then
        begin
         x:=vsp^.Inf;
         str:=vsp^.el;
         vsp^.Inf:=vsp^.next^.Inf;
         vsp^.el:=vsp^.next^.el;
         vsp^.next^.Inf:=x;
         vsp^.next^.el:=str;
        end;
      vsp:=vsp^.next;
     end;
 end;

Тогда вот что-то в этом роде....
За правильность не ручаюсь, но суть такая должна быть.

[MyQwErTy]

что-то не работает: прога запускается, и когда нужно отсортировать список, он выдает на экран ошибку и сразу закрывает, даже не успеваю посмотреть что он выдал

[Chudo4258]

Попробуй сделать пошагово.
Перед последним END должно быть readln.
Разберись в задаче, возможно где-то в цикле vsp уходит за значение nil.