помогите, не могу понять из-за чего не стала работать программа....вот архив
begin
rec1:=recs;
while rec1.next <> nil do
rec1:=rec1.next;
rec1.next:=rec2; // переделать
end;
добавление в очередь,чтоб он к предпоследнему цеплялся, а не проходил весь список.
Добавь еще указатель на последний.