Сортировка выбором

[Tattoquardas]

отсортировать выбором список по убыванию.

пытались сортировать по аналогии с масивами, но видимо совсем не то...

uses crt;
const k=4;
type
  chain=^list;
  list=record;
    num,ind:integer;
    next:chain;
  end;
  
procedure sort(list:chain);
var
    i,j,n,k,m:Integer;
    tmp,jlist,ilist,mlist:chain;
begin
     j:=1;
     m:=j;
     k:=4;
     repeat
           if list^.ind=j then tmp:=list;
           for i:=j to k do
           begin
                if list^.ind=i then ilist:=list;
                if ilist^.num<tmp^.num then
                begin
                     m:=ilist^.ind;
                     tmp:=ilist;
                end;
                if list^.ind=m then mlist:=list;
                if list^.ind=j then jlist:=list;
                mlist:=jlist;
                jlist:=tmp;
                j:=j+1;
            end;
     until j=k;
end;

var head,iter,tmp:chain;
    j,i,n:integer;
begin
  head:=nil;
  j:=1;
  for i:=1 to k do
    begin
      readln(n);
      if head=nil then
        begin

         new(head);
         iter:=head;
         head^.num:=n;
         head^.ind:=j;
         head^.next:=nil;
         end
        else
          begin
            inc(j);
            new(tmp);
            tmp^.num:=n;
            tmp^.ind:=j;
            tmp^.next:=nil;
            iter^.next:=tmp;
            iter:=iter^.next;
            tmp:=nil;
          end;
      end;
  iter:=head;
  sort(iter);
  while iter<>nil do
  begin
    writeln(iter^.num);
    iter:=iter^.next;
  end;
  end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.