Копирование из списка в массив

[kniazkinP]

Есть двусвязный список с вносимыми в него данными простым вводом чисел

type
  plist = ^tlist;
  tlist = record
          data : double;
          next, prev : plist;
  end;
  p2list = ^plist;
 
 
procedure Add (list : p2list; d : double);
var
  l : plist;
begin
   if list^ = nil then
   begin
      AddToEnd (list, d);
      exit
   end;
 
   New (l);
   l^.data := d;
   l^.prev := list^;
   l^.next := list^^.next;
   (list^)^.next := l
end;

Нужно перенести дынные из списка который тоже выводится на экран по процедуре

procedure Display (list : plist);
var
  p : plist;
begin
  if list = nil then
     writeLn ('Spisok pust')
  else
  begin
    p := list;
 
    while p^.prev <> nil do
       p := p^.prev;
 
    while p <> nil do
    begin
       if p = list then
         write ('*');
       write (p^.data, #32);
       p := p^.next;
    end;
  end;
end;

в массив.. Делаю вот так

type mass=array[1..100] of double;
procedure PerenosIsSpiskavMassiv (list : plist;var a:mass;var n:byte);
//передаем в программу созданный массив и его размер, мы же заранее можем и не знать сколько 
//элементов в списке
var
  p : plist;
  i:integer;
begin
   if list = nil then
     writeLn ('Spisok pust')
  else
    begin
     p := list;
    { "перематываем" список, что бы list стал последним элементом }
        n:=0;
    while p^.next <> nil do
      begin
             n:=n+1;
         p := p^.next;
         a[n]:=p^.data;
         writeln(a[n]:0:2,' ');
         end;
   end;

И какая-то ошибка в цикле

while p^.next <> nil do

не выводит на экран ничего, даже просто добавив строку writeln('Privet') ничего не происходит.