Двусвязный список

type
  list = ^TList;{указатель на тип элемента}
  ^TList = record{тип элемента списка}
    Data: integer;{поле данных элемента}
    Next,   {указатель на следующий элемент}
    Prev: list;       {указатель на предыдующий элемент}
     end;
 
var
  Head: list ;      {указатель на первый элемент списка}
  Current: list ;   {указатель на текущий элемент}

Program var5;
type
  Node = ^TNode;
  TNode = record
    Data: integer;
    Next,Prev: Node;
    end;
var
  first: Node;
  last: Node;
  Current: Node;

Program xa;
uses
  crt;
type
  TList = ^PList;
  PList = record
        Data: integer;
        Next,Prev: Tlist;
     end;
 
Procedure PrintSpis(List:TList);
begin
  While List<>nil do
  begin
    Write(List^.Data, ' ');
    List:=List^.Next;
  end;
end;
 
Procedure PrintSpisOfFile(List:TList;var f:Text);
begin
  While List<>nil do
  begin
    Write(f,List^.Data, ' ');
    List:=List^.Next;
  end;
  close(f);
end;
 
var
  Head,Last,Current,TmpList:Tlist;
  key:char;
  i,tmp:integer;
  f:Text;
  NameFile:String;
begin
  clrscr;
  Writeln('VVedite eleMeHt spiska');
  New(Current);
  Head:=Current;
  Last:=Head;
  Current^.Next:=nil;
  Current^.Prev:=nil;
  Readln(Current^.Data);
  Writeln('ProdoljiT vvod? No=Esc');
  Key:=readkey;
  While Key<>#27 do
  begin
  clrscr;
    Writeln('VVedite eleMeHt spiska');
    New(Current^.Next);
    Current^.Next^.Prev:=Current;
    Current:=Current^.Next;
    Current^.Next:=nil;
    Readln(Current^.Data);
    Last:=Current;
    Writeln('ProdoljiT vvod? No=Esc');
    Key:=readkey;
  end;
  clrscr;
  Writeln('Poly4uvLLIeUcia spisok');
  PrintSpis(Head);
  Writeln;
  Writeln('Key pressed...');
  readkey;
  Repeat
    Writeln;
    Writeln('Vvedite Nomer (1,2,3...) uckomogo elemeHta');
    Readln(tmp);
    Current:=Head;
    i:=1;
    While (Current<>NIl) and (tmp<>i) do
    begin
      inc(i);
      Current:=Current^.Next;
    end;
    dec(i);
    key:=#0;
    If Current=nil then
    begin
      Writeln('Dannogo Nomera Net v Spiske, Max po3ici9= ' ,i);
      Writeln('povtoriTb nouck? Yes=Enter');
      Key:=readkey;
    end
    else
    begin
      Writeln('NauDeHHbli element = ',Current^.Data);
      Writeln('povtoriTb nouck? Yes=Enter');
      Key:=readkey;
      { YDalenue naidennogog elemeHta}
      If Key<>#13 then
      begin
        if Current=Head then
        begin
          Head^.next^.Prev:=nil;
          Head:=Head^.next;
          Current^.Next:=nil;
          Current^.Prev:=Last;
          last^.Next:=Current;
          Last:=Last^.next;
        end
        else
          if Current<>Last then
          begin
            TmpList:=Head;
            While TmpList^.Next<>Current do
              TmpList:=TmpList^.Next;
            Current^.Next^.Prev:=TmpList;
            TmpList^.Next:=Current^.Next;
            Last^.Next:=Current;
            Current^.Prev:=Last;
            Current^.Next:=nil;
            Last:=Current;
          end;
      end;
    end;
  until Key<>#13;
  Writeln('Poly4uvLLIeUcia spisok');
  PrintSpis(Head);
  readkey;
  nameFile:='Double_Linked_list_5.txt';
  Assign(f,NameFile);
  Rewrite(f);
  PrintSpisOfFile(Head,f);
  clrscr;
  Writeln('DaHHble 3apisaHbl V Fail');
  Current:=Head;
  While Current<>nil do
  begin
    Current:=Current^.Next;
    Dispose(Head);
    Head:=Current;
  end;
  Readkey;
end.