t_16_22_e_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать процедуру, которая вставляет новый элемент E1 перед первым вхождением элемента E в список L (если оно есть)}
type T=...;
     list=^chain;
     chain=record elem:T; next:list end;
procedure ctrlV(E1,E:T;L:list);
     var p,q:list;
         eq:boolean;
     begin
       p:=L; eq:=false;
       while (p<>nil) and not eq do
            if p^.elem=e Then eq:=true
            else p:=p^.next;
       if eq then
       begin
          p^.elem:=E1; new(q); q^.elem:=E;
          q^.next:=p^.next; p^.next:=q;
       end;
     end;