program EJ2P4;
type
  fecha = record
    anio:integer;
    mes:integer;
    dia:integer;
  end;

  mensaje = record
  fec:fecha;
  hora:integer;
  end;
procedure maximo(Max1:integer;dato:fecha; VAR maxACT:integer;VAR maxFecha:fecha);
begin

if (max1 > maxACT) then begin
maxACT:=max1;
maxFecha.anio:=dato.anio;
maxFecha.mes:=dato.mes;
maxFecha.dia:=dato.dia;
end;
end;

procedure LeerRec(VAR mensj:mensaje);
begin
read(mensj.fec.anio);
read(mensj.fec.mes);
read(mensj.fec.dia);
read(mensj.hora);


end;

var
  MesActual:integer;
  DiaActual:integer;
  AnioActual:integer;
  mensj:mensaje;
  CantMensjAnio:integer;
  CantMensjMes:integer;
  CantMensjDia:integer;
  MaxCantDiaActual:integer;
  MaxMsjAnio:integer;
  MaxMsjMes:integer;
  MaxMsjDia:integer;
  maxFecha:fecha;
begin
  MaxCantDiaActual:=-999;
  LeerRec(mensj);
  while (mensj.fec.anio <> 0) do begin
    AnioActual:=mensj.fec.anio;
    MesActual:=mensj.fec.mes;
    DiaActual:=mensj.fec.dia;
    CantMensjAnio:=0;
    CantMensjMes:=0;
    CantMensjDia:=0;
    while (AnioActual = mensj.fec.anio) do begin
      CantMensjAnio:=CantMensjAnio + 1;

    while (MesActual = mensj.fec.mes) do begin
      CantMensjMes:=CantMensjMes + 1;

      while (DiaActual = mensj.fec.dia) do begin
      CantMensjDia:=CantMensjDia + 1;
      LeerRec(mensj);

    end;
          writeln('La cantidad de mensajes recibidos durante el dia fue: ',CantMensjDia);
          writeln('Fecha: ', mensj.fec.dia,'/',mensj.fec.mes,'/',mensj.fec.anio,'/');

    maximo(CantMensjDia, mensj.fec, MaxCantDiaActual, maxFecha);
      LeerRec(mensj);
    end;
    writeln('La cantidad de mensajes recibidos durante el mes fue: ',CantMensjMes);
    writeln('Mes: ',MesActual);



    LeerRec(mensj);

end;
    writeln('La cantidad de mensajes recibidos durante el año fue: ',CantMensjAnio);
  end;
  Writeln('El dia con mas mensajes recibidos fue: ',maxFecha.dia,'/',maxFecha.mes,'/',maxFecha.anio);
  readln(CantMensjDia);
end.