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

[MyQwErTy]

похоже что выходит за nil, но где?

[MyQwErTy]

function pr;//проверяет отсортирован ли список
var p:spisok;
begin
 pr:=true;
 p:=S;
 while p^.next<>nil do
  begin
    if p^.ball>p^.next^.ball then pr:=false;
    p:=p^.next;
  end;
end;

procedure sort;
var p:Spisok;
     S:spisok;//указатель на начало списка.
     x:real;
     str:stroka;
begin
while not(pr(S)) do
 begin
  p:=S;
   while p^.next<>nil do
     begin
      if p^.ball>p^.next^.ball then
        begin
         x:=p^.ball;
         str:=p^.el;
         p^.ball:=p^.next^.ball;
         p^.el:=p^.next^.el;
         p^.next^.ball:=x;
         p^.next^.el:=str;
        end;
      p:=p^.next;
     end;
  end;
end;

вот код, при запуске происходит вылет, кто знает, где ошибка?