function buscarPosProd(vp:t_productos,n:integer,numSerie:integer):integer;
var
   pos,i:integer;
begin
     pos:=0;
     for i:=1 to n do
     begin
          if(numSerie=vp[i].num_serie) then
          begin
               pos:=i;
          end;
     end;
     buscarPosProd:=pos;
end;

procedure venderProducto(var vp:t_productos,n:integer,numSerie:integer);
var
    posProd:integer
begin
     posProd:=buscarPosProd(vp,n,numSerie);
     if(posProd<>0) then
        begin
            if(vp[posProd].estado="EN STOCK")then
               begin
                  vp[posProd].estado="VENDIDO";
                  writeln("el producto fue vendido exitosamente");
               end
            else
                begin
                    writeln("error al vender NO HAY STOCK");
                end;
        end
     else
         begin
              writeln("ERROR -- NUMERO DE SERIE NO EXISTE ");
         end;

end;