t_16_18_e_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать функцию или процедуру, которая заменяет элементы первого и второго звеньев списка L}
type T=...
     list=^chain;
     chain=record elem:T; next:list end;
procedure change(L:list;);
     var p:list; a:T;
     begin
         p:=L;
         a:=L^.elem;
         while p^.next<>nil do
            p=p^.next
         L^.elem:=p^.elem;
         p^.elem:=a;
     end;