Массив и список Опции

[KOLYAN]

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

[Michael_Rybak]

циклом.

[KOLYAN]

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

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

.

[volvo]

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

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

[KOLYAN]

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

[volvo]

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