Сортировка однонаправленого списка вставками.

[gvilon]

Список нужно отсортировать методом вставки.
Идея метода состоит в том, что из первоначального списка
В = (к1, к2, .., Кn) последовательно выбираем элементы начиная с к1 и вставляя в список B 'так, чтобы он всегда был упорядочен.

Если можете - то помогите с задачей, или дайте ссылки на материал.

Вот сам список и процедуры создания списка и вывода его инф. поля.

type
  TList = ^List;
  List = record
    inf1: byte;
    next: TList;
  end;

var PTB:TList;

procedure printList(PTB:TList);
begin
  while PTB <> nil do
  begin
    write(PTB^.inf1:5);
    PTB:=PTB^.next;
  end;
end;

procedure createList(var PTB:TList);
var PTE:TList;
  i:integer;
begin
  for i:=1 to 4 do
  begin
    if PTB = nil then
    begin
      new(PTE);
      PTE^.inf1:=random(10);
      PTB:=PTE;
    end;
    new(PTE^.next);
    PTE:=PTE^.next;
    PTE^.inf1:=random(10);
  end;
  PTE^.next:=nil;
end;

begin
   createList(PTB);
   printList(PTB);
end.