Копирование списка в список. Опции

[Строка]

Помогите пожалуйста. Нужно скопировать значения списка в новый или в уже заполненный список. Фикус у меня выходит при копировании в уже заполненный. Если заполненный список длинее копируемого, нужно удалять лишние узлы, если же короче наоборот добавлять. Ну и память очищать. У меня же память не очищает, а один узел заполняет фигней какой-то. ). Уже голову сломал, не пойму что не так. Заранее спасибо.

Код

  TList = ^TNode;      
  TNode = record      
  Info: TTreb;  
  Next: TList;  
//  Prev: TList;
     end;


procedure ListCopy(var K:TList; L:TList);
var P,Q,R:TList;
begin
if L<>nil then
begin
  P:=L;
  if K=nil then begin
                while P<>nil do
                  begin
                    ListAddLast(K,P^.Info);
                    P:=P^.Next;
                  end;
                end else
                begin
                  Q:=K;
                  while P<>nil do
                    begin
                  Q^.Info:=P^.Info;
                  if Q^.Next=nil then begin
                                      new(R);
                                      Q^.Next:=R;
                                      R^.Next:=nil;
                                      R^.Prev:=Q;
                                      end;
                  Q:=Q^.Next;
                  P:=P^.Next;
                  //if P=nil then ListClear(Q);
                    end;
                end;
if Q<>nil then begin {Q:=nil;}ListClear(Q); end;
end;
end;


procedure ListClear ( var L: TList );
var
N: TList;
begin
while L <> nil do
begin
  N :=L;
  L:=L^.Next;
  dispose(N)
end
end;

[volvo]

Ну, так ты и основную часть приведи, откуда я знаю, КАК ты организовал вызов этих процедур? И как изначально заполняешь список тоже неизвестно...

[Строка]

Заполняются списки по гиморным алгоритмам, но основа заполнения в 2-х процедурах:

Код

procedure  ListAddLast(var L: TList; E: TTreb);
var
A: TList;
P: TList;
Begin
new(A);
A^.Info :=E;
A^.Next :=nil;
A^.Prev:=nil;
if L= nil then L:=A else
begin
  P:=L;
  while P^.Next <> nil do P:=P^.Next;
  P^.Next:=A;
  A^.Prev:=P;
end
end;

procedure ListObList(var L:Tlist; K:TList);
var P,Q:TList;
begin
if K<>nil then
begin
Q:=K;
if L=nil then begin ListAddLast(L,Q^.Info);
                     Q:=Q^.Next;
               end;
P:=L;
while P^.Next<>nil do P:=P^.Next;
while Q<>nil do begin
                        ListAddLast(P,Q^.Info);
                       Q:=Q^.Next;
                       end;
end;
end;

Вызов процедуры делаю отдельно. Два заполненных списка, ListCopy(A,B). B копируем в А.

[volvo]

Ну, тогда извини... ДОПИСЫВАТЬ твою программу, чтобы ее запустить и проверить, у меня нет НИКАКОГО желания. Это тебе нужно, ты и делай.

Присоединишь программу полностью - можешь надеяться на помощь с моей стороны. Нет - так нет...