t_16_18_d_v1_volkovich

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