p8y9

function secuencial(v:tVector;n:integer;k:integer):integer;
var
  i,pos :integer;
  encontrado :boolean;
begin
  encontrado:=false;
  i:=1;
  pos:=0;
  while (Not encontrado) and (i <= n) do
    if v[i].legajo = k then
      begin
        encontrado:=true;
        pos:=i
      end
    else
      i:= i + 1;
  secuencial:= pos
end; {fin secuencial}

procedure modificarEquipo(var x:tVector; u:integer);
var
  aux_numserie, aux_estado, pos:integer;
begin
//ingresar un numero de serie válido
  repeat
    write('ingrese numero de serie del dispositivo a modificar: ');
    readln(aux_numserie);
  until numserieRepetido(x,u,aux_numserie);
// Búsqueda lineal o secuencial por num de serie
  pos:= Secuencial(x,u,aux_numserie);
  if pos<>0 then
    begin

      writeln('Datos de la persona: ');
      writeln('legajo':7, ' nombre':7, ' sector':7, ' ingreso':7, ' estado':7);

      mostrarRegistro(x[pos]);

      write('ingrese nuevo estado:');    //volver a colocar la carga de registro.
      readln(aux_estado);
      x[pos].estado:=aux_estado;

    end;
end; {fin cambiarEstado}
procedure VenderEquipo(var x:tVector; u:integer);
var
  aux_numserie, aux_estado, pos:integer;
begin
//ingresar un numero de serie válido
  repeat
    write('ingrese numero de serie del dispositivo a modificar: ');
    readln(aux_numserie);
  until numserieRepetido(x,u,aux_numserie);
// Búsqueda lineal o secuencial por legajo
  pos:= Secuencial(x,u,aux_numserie);
  if pos<>0 then
     if estado (x[pos].estado:='STOCK';
    begin

      writeln('Datos del celular: ');
      writeln('legajo':7, ' nombre':7, ' sector':7, ' ingreso':7, ' estado':7);

      mostrarRegistro(x[pos]);
      write('Luego de Vender el Producto:');
      x[pos].estado:='VENDIDO';
       end;
           else
               writeln('Dispositivo no se encuentra en STOCK.')
    end;
  else
  writeln('no se encontro el dispositivo.');
end; {fin cambiarEstado}