t_16_22_g_v1_volkovich

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