Простая сортировка списков

procedure sortsort(head:pel;h:integer);
var i,tmps: integer;
tmp,rab,nach:pel;
begin
GetMem(tmp,SizeOf(Elem)); {выделяем память для раб. буфера}
rab:=head;
i:=0;
 
 
nach:=rab;
while i<h do begin
 tmp:=rab^.p;
 if tmp^.s  > rab^.s then // меняем значения S в элементе, нужен переход на следующий.
{нужно ли менять элементы}
 else begin
  tmps:=tmp^.s; {процедура обмена}
  tmp^.s:=rab^.s;
  rab^.s:=tmps;
  rab:=nach;
 end;
 rab:=rab^.p;
 //tmp:=tmp^.p;
 if rab^.p = nil then
 i:=h;
end;

type
  el = record
    s: integer;
    p: pel;
  end;
  pel = ^el;

i:=1;
 while i<n do
   if X[i]<=X[i+1] 
     then i:=i+1
   else begin
     z:=X[i]; X[i]:=X[i+1];
     X[i+1]:=z;
     i:=1
   end

type
  pel = ^el;
  el = record
    s: integer;
    p: pel;
  end;
 
function sortList(head: pel): pel;
var cur: pel;
  procedure swap;
  var t: integer;
  begin
    t := cur^.p^.s;
    cur^.p^.s := cur^.s;
    cur^.s := t;
  end;
begin
cur := head;
if head <> nil then
  while cur^.p <> nil do
    if cur^.s <= cur^.p^.s
      then cur := cur^.p
      else swap;
sortList := head;
end;