program ReparaElectros;
uses
   crt;
const
   Esc=#27;
type
   ARepuestos=array[1..10] of longint;
   RPedidos=record
      numPedid:word;
      fecPedid:longint;
      electro:string[30];
   end;
   APedidos=array[1..200]of RPedidos;
   RReparados=record
      numPedid:word;
      fecRepar:longint;
      repusUses:ARepuestos;
   end;
   RRepuestos=record
      codRepues:word;
      descrp:string[30];
      stock:word;
   end;
   FPedidos=file of RPedidos;
   FReparados=file of RReparados;
   FRepuestos=file of RRepuestos;
var
   pedid:RPedidos;
   repar:RReparados;
   repues:RPedidos;
   arch1:FPedidos;
   arch2:FReparados;
   arch3:FRepuestos;
   start,finish,a,b,c:char;
begin
   writeln('Elije alguna opcion para continuar:');
   writeln('a-Pedido b-Reparados c-Repuestos');
   repeat
   start:=readkey;
   writeln(start);
   case start of
      'a':
         begin
            clrscr;                            //Limpia la pantalla.
            writeln('Pedido de reparaciones');
            assign(arch1,'Pedidos.dat');
            reset(arch1);
         end;
      'b':
         begin
            clrscr;
            writeln('Electros reparados');
            assign(arch2,'Reparados.dat');
            reset(arch2);
         end;
      'c':
         begin
            clrscr;
            writeln('Stock de repuestos');
            assign(arch3,'Repuestos.dat');
            reset(arch3);
         end;
        else
            begin
                writeln('macho, toca alguna razonable sino te corto la mano');
            end;
   end;
   //finish:=readkey
   until (start=Esc);
     //1-Agregar nuevo num de pedido autonumerico, fecha de sist
     //y electro por teclado
     //2-Tomar fecha mas antigua de pedido, repuestos y cant.
     //necesaria por teclado, żhay stock?Si entonces repara y
     //se registra en "Reparados.dat", actualiza stock acceso directo
     //y elimina pedido.
end.