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

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;

procedure PerenosIsSpiskavMassiv (list : plist);
var
  p : plist;
  var A: array [0..10] of double;
  i:integer;
begin
 
  if list = nil then
     writeLn ('Spisok pust')
  else
    begin
     p := list;
    { "перематываем" список, что бы list стал последним элементом }
     for i:=0 to 10 do
 
      while p^.next <> nil do
      begin
         p := p^.next;
         a[i]:=p^.data;
         writeln(a[i]);
         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;

 1: begin
            write ('Vvedite chislo: ');
            readLn (i);
            Add (@list, i);
          end;

11:PerenosIsSpiskavMassiv (@list, i);

while p^.next <> nil do

    while p^.next <> nil do
      begin
      writeln('PRIVET');
         n:=n+1;...

11:PerenosIsSpiskavMassiv (list, a,n);