program PracticoDosEjDos;
type
vino = record
 codigoB: 1..10;
 NombreVino: string;
 Calif: 1..4;
 end;

var
por:integer;
v: vino;
CantVC, CantVCAcidos, TotalV, B, Max, CMaxB: integer;
procedure Leer (var v: vino);
begin
 writeln('Ingrese el codigo de bodega: ');
 readln (v.codigoB);
 if (v.codigoB <> 0) then begin
 writeln('Ingrese el nombre del vino: ');
  readln (v.NombreVino);
  writeln('Ingrese la calificacion del vino: ');
  readln (v.Calif);
  end;
end;

procedure ProcBodega (B: integer; var v: vino; var CantVC: integer; var CantVCAcidos: integer);
begin
 while (v.codigoB <> 0) and (v.codigoB = B) do begin
  CantVC:= CantVC + 1;
  If (v.Calif = 1) then
   writeln (v.NombreVino,'es suave.')
   else
   if (v.Calif = 4) then
    CantVCAcidos:= CantVCAcidos + 1;
  Leer(v);
  end;
 end;

procedure CMaximo (var Max: integer; var CMaxB: integer; CantVC: integer; B: integer);
begin
 if (CantVC > Max) then begin
  Max:= CantVC;
  CMaxB:= B;
  end;
end;

begin
 CantVCAcidos:= 0;
 TotalV:= 0;
 Max:= -1;
 Leer (V);

 while (v.codigoB <> 0) do begin
  B:= v.codigoB;
  CantVC:= 0;
  ProcBodega (B,v,CantVC,CantVCAcidos);
  CMaximo (Max,CMaxB,CantVC,B);
  totalv:= totalv + CantVC;
  end;
 writeln ('Codigo de bodega con mayor cantidad de cataciones: ',CMaxB);
 por:=CantVCAcidos * 100 DIV TotalV;
 writeln ('Porcentaje de vinos agresivos: ',por);
 readln;
 readln;
end.