как поместить список в массив

циклом.

Я знаю что циклом но у меня не получилось

n:=0;
while L1<>nil do
begin
A[i]:=L1^.T;
L1:=L1^.P;
n:=n+1;
end;

.

n := 0;
while L1<>nil do begin
  n := n + 1;
  A[n]:=L1^.T;
  L1:=L1^.P;
end;

Тоже не получается?

А как массив в список

Точно так же - проходишь по всему массиву, и для каждого его элемента вызываешь функцию добавления элемента в список (поскольку КАК организован список у тебя - неизвестно, точнее сказать не могу)