Двунаправленный список

[Елена1995]

значит предлагает....если такое задание задали

мне надо сделать упорядоченное добавление в одной процедуре

[Stilet]

Ты не понимаешь... )
Ладно. Пойдем другим путем:

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

type
 TDataTipe=integer;
 PTItem=^TItem;
 TItem=Record
  Data:TDataTipe;
  Prev,Next:PTItem;
 end;

 { TListCircle }

 TListCircle=class
  private
   Head,CurItem:PTItem;
  public
    Function Ins(AData:TDataTipe):PTItem;
    function outt:boolean;
    destructor Free;
    Constructor Create;
 end;


 { TListCircle }

 function TListCircle.Ins(AData: TDataTipe): PTItem;
 begin
   new(result);
   result^.Data:=AData;
   CurItem:=Head;
   if CurItem=nil then begin
     Head:=Result;
     Head^.Next:=Head;
     Head^.Prev:=Head;
     Exit;
   end;
   repeat
    if CurItem^.Data>AData then begin
      Result^.Next:=CurItem;
      Result^.Prev:=CurItem^.Prev;
      CurItem^.Prev^.Next:=Result;
      CurItem^.Prev:=Result;
      if CurItem=Head then Head:=Result;
      Exit;
    end;
   until CurItem=Head;

   Result^.Next:=Head;
   Result^.Prev:=CurItem^.Prev;
   CurItem^.Prev^.Next:=Result;
   Head^.Prev:=Result;

 end;

 function TListCircle.outt: boolean;
 var i:integer;
 begin
   CurItem:=Head;
   repeat
     write(curitem^.data:5);
     CurItem:=CurItem^.Next;
   until CurItem=Head;
 end;

 destructor TListCircle.Free;
 begin

 end;

 constructor TListCircle.Create;
 begin
   Head:=nil;   CurItem:=Head;
 end;

 begin
 with TListCircle.Create do begin
    Ins(5);
    Ins(2);
    Ins(6);
    Ins(1);
    outt;
  free;
 end;
    Readln;
   { TODO -oUser -cConsole Main : Insert code here }
 end.

Этот код должен отрабатывать кольцевой список сортируя на этапе вставки.
Мне только не удалось нормально деструктор сделать, это уже сама.

[Елена1995]

Спасибо большое, но это не то что мне нужно(

[Stilet]

Что ж. Значит я не смог понять задание. Сумимасен Елена-сан.