Напишите процедуру сортировки линейного связного списка методом простого выбора с изменением указателей

Type
Ukazatel = ^S;
S = Record
Data : string;
Next : Ukazatel ;
End;
Var
i,n:integer;
str:string;
Head,x: Ukazatel;
begin
head:=nil;
writeln('Введите количество элементов в списке');
readln(n);
writeln('Введите элементы списка');
for i:=1 to n do begin
readln(str);
if head=nil then begin
New(x);
x^.Data:=str;
x^.Next:=Nil;
Head:= x;
end
else begin
New(x^.Next);
x:= x^.Next;
x^.Data:=str;
x^.Next:= Nil;
end;
end;
 
{Вывод списка}
 
x:=head;
while x<>Nil do
Begin
Writeln(x^.Data);
x:= x^.Next;
End;
end.

procedure Sortirovka(head:ukazatel);
var prev,prev1,min:ukazatel;
    r:string;
begin
   prev:=head;
   while prev<>nil do
   begin
   min:=prev;
    prev1:=prev^.next;
    while prev1<>nil do begin
                      if prev1^.data<min^.data then min:=prev1;
                      prev1:=prev1^.next;
                      end;
        r:=min^.data;
        min^.data:=prev^.data;
        prev^.data:=r;
        prev:=prev^.next;
  end;
end;

procedure sortbubble(head:ukazatel);
var
tmp,pered,pered1,pocle,rab: Ukazatel;
begin
  rab:=head;
  while rab<>nil do
  begin
    tmp:=rab^.next;
    while tmp<>nil do
    begin
      if tmp^.data<rab^.data then
      begin
        pered:=head;
        pered1:=head;
        if rab<>head then
          while pered^.next<>rab do pered:=pered^.next;
        while pered1^.next<>tmp do pered1:=pered1^.next;
        pocle:=tmp^.next;
        if rab^.next=tmp then
        begin
          tmp^.next:=rab;
          rab^.next:=pocle
        end
        else
        begin
          tmp^.next:=rab^.next;
          rab^.next:=pocle;
        end;
        if pered1<>rab then
          pered1^.next:=rab;
        if rab<>head then
          pered^.next:=tmp
        else
          head:=tmp;
        pered1:=tmp;
        tmp:=rab;
        rab:=pered1;
      end;
      tmp:=tmp^.next;
    end;
    rab:=rab^.next;
  end;
end;

program spisok;
uses crt;
type
    sp=^st;
    st=record
    inf:integer;
    link:sp;
    end;
 
VAR Begl,Endl,p,pn,pk:sp; n,i,j,id,g:byte; max,el:integer;
 
procedure vivod(p:sp);
begin
     while p<>nil do
       begin
            write(p^.inf:4);
            p:=p^.link;
       end;
 
end;
 
BEGIN
 
     write('Размер списка: ');
     readln(n);
 
     new(p);
     write('inf[1]=');
     readln(p^.inf);
     p^.link:=nil;
     Begl:=p;
     Endl:=p;
 
     for i:=2 to n do
       begin
            new(p);
            write('inf[',i,']=');
            readln(p^.inf);
            p^.link:=nil;
            Endl^.link:=p;
            endl:=p;
       end;
 
     writeln('До:');
     vivod(begl);
     writeln;
 
     //Сортировка
     pn:=begl;
     j:=1;
     while pn<>nil do
       begin
         p:=pn^.link;
         max:=pn^.inf;
         id:=j;
         i:=j+1;
         while p<>nil do
           begin
              if p^.inf>max then
                begin
                   max:=p^.inf;
                   id:=i;
                end;
              p:=p^.link;
              inc(i);
           end;
       
         pk:=begl;
         for g:=1 to id-1 do
           pk:=pk^.link;
         
         el:=pn^.inf;
         pn^.inf:=pk^.inf;
         pk^.inf:=el;
 
         pn:=pn^.link;
         inc(j);
       end;
 
     writeln('После:');
     vivod(begl);
END.