program Vivero(input,output);
uses crt,sysutils;
Type rMascotas=Record
                   Codigo: integer;
                   Nombre: string[20];
                   Duenio: string[35];
                   Mail: string[40];
               End;
     rHistoria=Record
                    Codigo: integer;
                    Visita: string[8]; {DDMMAAAA}
                    Atencion: char; //P: peluquería / V: veterianaria
                    Corte: char; //S/N
                    Banio: char; //S/N
                    Vacuna: string[25];
                    Medicamento: string[40];
                    Proximocontrol: string[6]; {MMAAAA}
               End;
Var Mascotas: rMascotas;
    Historia: rHistoria;
    aMascotas: File of rMascotas;
    aHistoria: File of rHistoria;

Procedure Carga();
Begin
     If FileExists('C:\Users\NACHO\Desktop\Pascal\Mascotas.dat') then
     Begin
          Reset(aMascotas);
     End
     Else
          Rewrite(aMascotas);
     End;
     If FileExists('C:\Users\NACHO\Desktop\Pascal\Historia.dat') then
     Begin
          Reset(aHistoria);
     End
     Else
          Rewrite(aHistoria);
     End;
     Writeln('Ingrese codigo de la mascota: ');
     Readln(Mascotas.codigo);
     Writeln('Ingrese nombre de la mascota: ');
     Readln(Mascotas.nombre);
     Writeln('Ingrese nombre del duenio: ');
     Readln(Mascotas.duenio);
     Writeln('Ingrese mail: ');
     Readln(Mascotas.mail);

End;

Procedure Peluqueria(); //Peluqueria
var cod: integer;
begin
     Writeln('Ingrese codigo de cachorro: ');
     Readln(cod);
     Reset(aMascotas);
     Aux:=0;
     While not EOF(aMascotas) Do
     Begin
          Read(aMascotas,Mascotas);
          If (Mascotas.codigo)=COD then
          Begin
               Reset(aHistoria);
               Writeln('Codigo encontrado');
               Historia.codigo:=Mascotas.codigo;
               Writeln('Ingrese fecha: (DDMMAA)');
               Readln(Historia.Visita);
               Writeln('Desea hacer corte? SI(S) o No(N)');
               Repeat
                     Readln(Historia.Corte);
               Until (Historia.Corte)='S' OR (Historia.Corte)='N'
               Writeln('Desea hacer banio? Si(S) o No(N)');
               Repeat
                     Readln(Historia.Banio);
               Until (Historia.Banio)='S' OR (Historia.Banio)='N'
               Historia.Atencion:='P';
               seek(aHistoria,filesize(aHistoria));
               Write(aHistoria,Historia);
               Write('Datos guardados');
               Aux:=1;
          End;
     End;
     If Aux=0 then
     Begin
          Writeln('Codigo no encontrado');
     End;
     Close(aMascotas);
     Close(aHistoria);
end;

Procedure Veterinaria();
Var cod,aux:integer;
Begin
     Writeln('Ingrese codigo de cachorro: ');
     Readln(cod);
     Reset(aHistoria);
     Aux:=0;
     While not EOF(aHistoria) Do
     Begin
          Read(aHistoria,Historia);
          If (Historia.codigo)=COD then
          Begin
               If (Historia.Atencion)='V' then
               Begin
                    Writeln('Ultimo dia de visita: ',Historia.Visita);
                    Writeln('Ultima vacuna: ',Historia.Vacuna);
                    Writeln('Ultimo medicamento: ',Historia.Medicamento);
                    Writeln('Ingrese fecha: ');
                    Read(Historia.Visita);
                    Writeln('Ingrese vacuna: ');
                    Read(Historia.Vacuna);
                    Writeln('Ingrese medicamento: ');
                    Read(Historia.Medicamento);
                    Writeln('Ingrese fecha para proximo control: ');
                    Read(Historia.Proximocontrol);
                    Aux:=1;
                End;
          seek(aHistoria,filesize(aHistoria));
          Write(aHistoria,Historia);
          Write('Datos guardados');
          End;
      End;
      If Aux=0 then
      Begin
           Writeln('Codigo no encontrado');
      End;
      Close(aHistoria);
End;

Procedure Menu(); //Menu opciones
Var OP: integer;
begin
Writeln('Ingrese una opcion: ');
Writeln('1) Carga Inicial');
Writeln('2) Peluqueria');
Writeln('3) Veterinaria');
Writeln('4) Avisos de próximos controles');
Writeln('5) Salir');
Repeat
      Read(OP);
Until (OP>=1)AND(OP<=5)
While OP<>5 DO
Begin
     Case OP of
          1:Carga;
          2:Peluqueria;
          3:Veterinaria;
          4:Avisos;
     End;
End;

Begin //Programa principal
Assign(aMascotas,'Mascotas.dat');
Assign(aHistoria,'Historia.dat');
Menu;
end.