Отображение всех элементов в списке.(Указатели.Delphi)

[zaira001002]

Не могу никак сделать так, чтобы отображались все элементы, как только не пыталась: то у меня последний элемент не отображает, то у меня зацикливается. Может подскажете что нужно добавить в мой цикл WHILE в процедуре ShowAllElemDec?

uses
  SysUtils;

type
  TDec = ^Dec;
  Dec = record
    Elem:     Integer;
    NextElem: TDec;
    PrevElem: TDec;
  end;

var
  First  : TDec = nil;
  Last   : TDec = nil;

// Процедура добавления элемента в начало списка
//procedure AddElemBeginDec (var First, Last: TDec; TempElem: Integer);
procedure AddElemBeginDec (var TempElem: Integer);
var
  Current: TDec;
begin
  New(Current);
  Current^.Elem    := TempElem;
  Current^.NextElem:= First;
  Current^.PrevElem:= nil;
  if First<> nil  then First^.PrevElem:= Current
                  else Last:= Current;
  First:= Current;
end;

// Процедура добавления элемента в конец списка
procedure AddElemEndDec (var TempElem: Integer);
var
  Current: TDec;
begin
  New(Current);
  Current^.Elem    := TempElem;
  Current^.NextElem:= nil;
  Current^.PrevElem:= Last;
  if Last<> nil then Last^.NextElem:= Current
                else First:= Current;
  Last:= Current;
end;

// Процедура удаления элемента из начала списка
procedure DelElemBeginDec (var First, Last: TDec);
var
  Current: TDec;
begin
  if First= nil then Exit;
  Current:= First;
  First:= First^.NextElem;
  if First<> nil then First^.PrevElem:= nil
                 else Last:= nil;
  Dispose(Current);
end;

// Процедура удаления элемента из конца списка
procedure DelElemEndDec (var First, Last: TDec);
var
  Current: TDec;
begin
  if Last= nil then Exit;
  Current:= Last;
  Last:= Last^.PrevElem;
  if Last<> nil then Last^.NextElem:= nil
                else First:= nil;
  Dispose(Current);
end;

// Процедура отображения всех элементов списка
procedure ShowAllElemDec (var First, Last: TDec);
var
  Current: TDec;
begin
  Current:=First;
  while Current.NextElem <>Last do
  begin
      Writeln(Current^.Elem);
      Current:=First.NextElem;
  end;

end;

// Процедура удаления всех элементов списка
procedure DelAllElemDec (var First, Last: TDec);
var
  Current: TDec;
begin
  Current:=First;
  while Last<>nil do
  begin
    Current:=First;
    if Current^.NextElem <> nil then
    begin
      First:= Current^.NextElem;
      Dispose(Current);
    end;
  end;
end;

// Процедура отображения количества элементов в списке
procedure ShowAllSumElemDec (var First, Last: TDec);
var
  Current: TDec;
  Kolichestvo: Integer;
begin
  Kolichestvo:=0;
  Current:=First;
  while Last<>nil do
  begin
    Current:=First;
    if Current^.NextElem <> nil then
    begin
      First:= Current^.NextElem;
      Kolichestvo:=Kolichestvo+1;
    end;
  end;
  Writeln(Kolichestvo);
end;

// Основная часть программы
var
  Element: Integer;
  Item:    Char;
begin
// Меню программы
  repeat
  Writeln('Menu:');
  Writeln('1. Dobavlenie v nachalo i konech');
  Writeln('2. Udalenie is nachalo i koncha');
  Writeln('3. Pokasat all');
  Writeln('4. Udalit all');
  Writeln('5. Pokasat kolichestvo elementov');
  Writeln('0. Exit');
  ReadLn(Item);
  case Item of
    '1': begin
           Write('Vvedite element:');
           ReadLn(Element);
           Writeln('Menu:');
           Writeln('1. Dobavit s nachala');
           Writeln('2. Dobavit s koncha' );
           ReadLn(Item);
           case Item of
             '1': begin
                  AddElemBeginDec(Element);
                  Writeln('Element dobavlen v nachalo spiska');
                  end;

             '2': begin
                  AddElemEndDec(Element);
                  Writeln('Element dobavlen v konech spiska');
                  end;
            end;
        end;

    '2': begin
           Writeln('Menu:');
           Writeln('1. Udalit s nachala');
           Writeln('2. Udalit s koncha' );
           ReadLn(Item);
           case Item of
             '1': begin
                  DelElemBeginDec(First,Last);
                  Writeln('Element udalen s nacala spiska');
                end;

             '2': begin
                  DelElemEndDec(First,Last);
                  Writeln('Element udalen s kancha spiska');
                end;
           end;
         end;

    '3': begin
         Writeln('All elements:');
         ShowAllElemDec(First,Last);
       end;

    '4': begin
         Writeln('All elements deleted');
         DelAllElemDec(First,Last);
       end;

    '5': begin
         Write('Kolichestvo elementov v spiske: ');
         ShowAllSumElemDec(First,Last);
       end;
    end;
    until Item = '0';
  Writeln;
  Writeln;
  ReadLn;
end.

[BDA]

Current := First;
while Current <> nil do
begin
  Writeln(Current^.Elem);
  Current := Current.NextElem;
end;

Нравится ИУ7?)

[zaira001002]

ИУ7?Это был мне вопрос?А так спасибо,все работает)))